t/common.perl | 1 +

diff --git a/t/common.perl b/t/common.perl
index 0ff5de4a7161d97bd1ad6b8df715084ce6c3c7d6..288a0a1928b6c62f34aa1c15f37f023f6508c0fc 100644
--- a/t/common.perl
+++ b/t/common.perl
@@ -171,6 +171,7 @@ 		local *STDOUT = *STDOUT;
 		local *STDERR = *STDERR;
 		local %ENV = $env ? (%ENV, %$env) : %ENV;
 		local %SIG = %SIG;
+		local $0 = join(' ', @$cmd);
 		_prepare_redirects($fhref);
 		_run_sub($sub, $key, \@argv);
 	}