patch to support computed regular subexpressions

[p5sagit/p5-mst-13.2.git] / t / op / magic.t

diff --git a/t/op/magic.t b/t/op/magic.t
index ec7fbb5..7f08e06 100755 (executable)
--- 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