[PATCH 2/7] t/common: set $0 when running script w/o fork

[Eric Wong <e@80x24.org>]

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 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/common.perl b/t/common.perl
index 0ff5de4a..288a0a19 100644
--- a/t/common.perl
+++ b/t/common.perl
@@ -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);
 	}