generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Support file names passed to RETR that don't start with a number. In that

Browse Source 
case, all non-numeric prefixing letters are cut off to figure out the test
number.
This commit is contained in:
Daniel Stenberg 2005-01-20 22:47:31 +00:00
parent 7472ede32a
commit b264a03f89
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/ftpserver.pl
View File

@ -55,7 +55,6 @@ sub ftpmsg {
open(INPUT, ">>log/server$ftpdnum.input") ||
logmsg "failed to open log/server$ftpdnum.input\n";
INPUT->autoflush(1);
print INPUT @_;
close(INPUT);
@ -297,7 +296,7 @@ sub SIZE_command {
}
sub RETR_command {
my $testno = $_[0];
my ($testno) = @_;
logmsg "RETR file \"$testno\"\n";
@ -318,6 +317,8 @@ sub RETR_command {
return 0;
}
$testno =~ s/^([^0-9]*)//;
loadtest("$srcdir/data/test$testno");
my @data = getpart("reply", "data");