1 files changed, 1 insertions, 0 deletions
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);
          }