From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 29 Apr 2013 12:58:08 +0000 (+0200)
Subject: ftpserver: silence warnings
X-Git-Tag: curl-7_31_0~87
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=073e83b543cb9e9b083062302aea437e1435989f;p=thirdparty%2Fcurl.git

ftpserver: silence warnings

Fix regressions in commit b56e3d43e5d. Make @data local and filter off
non-numerical digits from $testno in STATUS_imap.
---

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index b7dd6313c8..c32165b620 100755
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -1011,7 +1011,7 @@ sub STATUS_imap {
 
     logmsg "STATUS_imap got test $testno\n";
 
-    $testno =~ s/^([^0-9]*)//;
+    $testno =~ s/[^0-9]//g;
     my $testpart = "";
     if ($testno > 10000) {
         $testpart = $testno % 10000;
@@ -1020,7 +1020,7 @@ sub STATUS_imap {
 
     loadtest("$srcdir/data/test$testno");
 
-    @data = getpart("reply", "data$testpart");
+    my @data = getpart("reply", "data$testpart");
 
     for my $d (@data) {
         sendcontrol $d;