Commit 073e83b5 authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

ftpserver: silence warnings 

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

tests/ftpserver.pl

+2 −2
Original line number Diff line number Diff line
@@ -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;