ftpserver: silence warnings
Fix regressions in commit b56e3d43e5d. Make @data local and filter off non-numerical digits from $testno in STATUS_imap.
This commit is contained in:
parent
c3e6d69acb
commit
073e83b543
@ -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;
|
||||
|
Loading…
x
Reference in New Issue
Block a user