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

case, all non-numeric prefixing letters are cut off to figure out the test
number.

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index bffa30a4d3ce3b81473bd2fa1af1f42d757ee830..866090888cd5183b0a2fe2b1f4f5f4063fbd5f1c 100644 (file)
--- 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");