aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/ftpserver.pl5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index bffa30a4d..866090888 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -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");