X-Git-Url: https://git.exim.org/exim.git/blobdiff_plain/df613eb4a1b386c3b57baf09a25511894460b9b1..25adc2a87877ad82fdfeb251ef401da2af66dd19:/test/runtest diff --git a/test/runtest b/test/runtest index a66c589f8..bdba26fc9 100755 --- a/test/runtest +++ b/test/runtest @@ -2167,8 +2167,7 @@ elsif (/^((?i:[A-Z\d_]+=\S+\s+)+)?(\d+)?\s*(sudo(?:\s+-u\s+(\w+))?\s+)?exim(_\S+ # Done backwards just in case there are more than 9 - my($i); - for ($i = @msglist; $i > 0; $i--) { $args =~ s/\$msg$i/$msglist[$i-1]/g; } + for (my $i = @msglist; $i > 0; $i--) { $args =~ s/\$msg$i/$msglist[$i-1]/g; } if ( $args =~ /\$msg\d/ ) { tests_exit(-1, "Not enough messages in spool, for test $testno line $lineno\n") @@ -2360,9 +2359,9 @@ print "Exim tester $testversion\n"; # we map all (.../bin) to (.../sbin:.../bin) $ENV{PATH} = do { my %seen = map { $_, 1 } split /:/, $ENV{PATH}; - join ':' => map { m{(.*)/bin$} - ? ( $seen{"$1/sbin"} ? () : ("$1/sbin"), $_) - : ($_) } + join ':' => map { m{(.*)/bin$} + ? ( $seen{"$1/sbin"} ? () : ("$1/sbin"), $_) + : ($_) } split /:/, $ENV{PATH}; }; @@ -3922,4 +3921,3 @@ tests_exit(-1, "No runnable tests selected") if @test_list == 0; tests_exit(0); # End of runtest script -# vim: set sw=2 et :