From 073e83b543cb9e9b083062302aea437e1435989f Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 29 Apr 2013 14:58:08 +0200
Subject: [PATCH] ftpserver: silence warnings

Fix regressions in commit b56e3d43e5d. Make @data local and filter off
non-numerical digits from $testno in STATUS_imap.
---
 tests/ftpserver.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index b7dd6313c..c32165b62 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;