]> Sergey Matveev's repositories - public-inbox.git/commitdiff
t/common: set $0 when running script w/o fork
authorEric Wong <e@80x24.org>
Fri, 29 Nov 2019 10:14:09 +0000 (10:14 +0000)
committerEric Wong <e@80x24.org>
Wed, 11 Dec 2019 08:10:27 +0000 (08:10 +0000)
We can localize changes to $0 so $0 is restored when the
"script" sub is done.  This will be helpful when we encounter
a stuck/slow processes during our tests (hopefully never!)

t/common.perl

index 0ff5de4a7161d97bd1ad6b8df715084ce6c3c7d6..288a0a1928b6c62f34aa1c15f37f023f6508c0fc 100644 (file)
@@ -171,6 +171,7 @@ sub run_script ($;$$) {
                local *STDERR = *STDERR;
                local %ENV = $env ? (%ENV, %$env) : %ENV;
                local %SIG = %SIG;
+               local $0 = join(' ', @$cmd);
                _prepare_redirects($fhref);
                _run_sub($sub, $key, \@argv);
        }