ftpserver: silence warnings
Fix regressions in commit b56e3d43e5. Make @data local and filter off
non-numerical digits from $testno in STATUS_imap.
This commit is contained in:
@@ -1011,7 +1011,7 @@ sub STATUS_imap {
|
|||||||
|
|
||||||
logmsg "STATUS_imap got test $testno\n";
|
logmsg "STATUS_imap got test $testno\n";
|
||||||
|
|
||||||
$testno =~ s/^([^0-9]*)//;
|
$testno =~ s/[^0-9]//g;
|
||||||
my $testpart = "";
|
my $testpart = "";
|
||||||
if ($testno > 10000) {
|
if ($testno > 10000) {
|
||||||
$testpart = $testno % 10000;
|
$testpart = $testno % 10000;
|
||||||
@@ -1020,7 +1020,7 @@ sub STATUS_imap {
|
|||||||
|
|
||||||
loadtest("$srcdir/data/test$testno");
|
loadtest("$srcdir/data/test$testno");
|
||||||
|
|
||||||
@data = getpart("reply", "data$testpart");
|
my @data = getpart("reply", "data$testpart");
|
||||||
|
|
||||||
for my $d (@data) {
|
for my $d (@data) {
|
||||||
sendcontrol $d;
|
sendcontrol $d;
|
||||||
|
|||||||
Reference in New Issue
Block a user