From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 20 Jan 2005 22:47:31 +0000 (+0000)
Subject: Support file names passed to RETR that don't start with a number. In that
X-Git-Tag: upstream/7.37.1~11631
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b264a03f891551c442eaff048f6e81ae74d450c1;p=platform%2Fupstream%2Fcurl.git

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 bffa30a..8660908 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");