patch against t/op/magic.t

Message-ID: <3D2A1EFA.8050603@divsol.com>

p4raw-id: //depot/perl@17427

diff --git a/t/op/magic.t b/t/op/magic.t
index ab0544e..a85ff6b 100755 (executable)
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -201,6 +201,9 @@ EOT
     elsif ($Is_VMS) {
       $script = "[]show-shebang";
     }
+    else {
+      $script = "./show-shebang";
+    }
     if ($^O eq 'os390' or $^O eq 'posix-bc' or $^O eq 'vmesa') {  # no shebang
        $headmaybe = <<EOH ;
     eval 'exec ./perl -S \$0 \${1+"\$\@"}'