diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-08-01 15:03:02 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 05:20:12 +0000 |
| commit | 9d116dd7c895b17badf4ad422ae44da0c4df7bc2 (patch) | |
| tree | 6e0cd77e3539952c892983238473264f672472b9 /t/op/magic.t | |
| parent | e6df7ed16ebd06f5315f3016c00996876580109c (diff) | |
| download | perl-9d116dd7c895b17badf4ad422ae44da0c4df7bc2.tar.gz | |
support OE/MVS
Message-Id: <199808010903.MAA09371@alpha.hut.fi>
Subject: [PATCH] 5.005_01: OE MVS
p4raw-id: //depot/maint-5.005/perl@1697
Diffstat (limited to 't/op/magic.t')
| -rwxr-xr-x | t/op/magic.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 61e4522913..7f08e06f85 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -135,6 +135,12 @@ __END__ :endofperl EOT } + 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), $!; |