diff options
author | Daniel Stenberg <daniel@haxx.se> | 2013-04-29 14:58:08 +0200 |
---|---|---|
committer | Daniel Stenberg <daniel@haxx.se> | 2013-04-29 14:58:08 +0200 |
commit | 073e83b543cb9e9b083062302aea437e1435989f (patch) | |
tree | 700787cd99776a19bb063bc0244a8eed2bb838f0 /tests | |
parent | c3e6d69acbf18479d28af01f76b6f5b3ed6e714b (diff) |
ftpserver: silence warnings
Fix regressions in commit b56e3d43e5d. Make @data local and filter off
non-numerical digits from $testno in STATUS_imap.
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/ftpserver.pl | 4 |
1 files 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; |