Fix ${extract } corrupting an enclosing ${reduce } $value. Bug 2061

[users/heiko/exim.git] / test / runtest

diff --git a/test/runtest b/test/runtest
index b82b6b98ccf4ea5dd88ef733d8431469deb6937b..6b6586c10e0940707ade5e880053e7cf389a0181 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -3853,13 +3853,13 @@ foreach $test (@test_list)
     # command was run and waited for, and 3 if a command
     # was run and not waited for (usually a daemon or server startup).
 
     # command was run and waited for, and 3 if a command
     # was run and not waited for (usually a daemon or server startup).
 

+    $0 = "[runtest $testno]";
+

     my($commandname) = '';
     my($expectrc) = 0;
     my($rc, $run_extra) = run_command($testno, \$subtestno, \$expectrc, \$commandname, $TEST_STATE);
     my($cmdrc) = $?;
 
     my($commandname) = '';
     my($expectrc) = 0;
     my($rc, $run_extra) = run_command($testno, \$subtestno, \$expectrc, \$commandname, $TEST_STATE);
     my($cmdrc) = $?;
 

-    $0 = "[runtest $testno]";
-

     if ($debug) {
       print ">> rc=$rc cmdrc=$cmdrc\n";
       if (defined $run_extra) {
     if ($debug) {
       print ">> rc=$rc cmdrc=$cmdrc\n";
       if (defined $run_extra) {