X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fmagic.t;h=7f08e06f85184540cd4726225b0fe84f3869f331;hb=0f5d15d614a56a8b655f35e4e8c6a0dba34da106;hp=ec7fbb529ea530630f9cc8a172c61e8c3965169b;hpb=78987dedd25ff29688fc6fdb7b551d69e750279b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/magic.t b/t/op/magic.t
index ec7fbb5..7f08e06 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -135,11 +135,13 @@ __END__
 :endofperl
 EOT
     }
-    $s1 = $s2 = "\$^X is $perl, \$0 is $script\n";
-    if ($^O eq 'os2') {
-	# Started by ksh, which adds suffixes '.exe' and '.' to perl and script
-	$s2 = "\$^X is $wd/perl.exe, \$0 is $script.\n";
+    if ($^O eq 'os390') {  # no shebang
+	$headmaybe = <<EOH ;
+    eval 'exec ./perl -S \$0 \${1+"\$\@"}'
+        if 0;
+EOH
     }
+    $s1 = $s2 = "\$^X is $perl, \$0 is $script\n";
     ok 19, open(SCRIPT, ">$script"), $!;
     ok 20, print(SCRIPT $headmaybe . <<EOB . <<'EOF' . $tailmaybe), $!;
 #!$wd/perl