From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 9 Jul 2002 17:07:12 +0000 (-0500)
Subject: fix 17425 for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=421bf9fa5745dcd17580ed75b7e41efc5f769a2d;p=p5sagit%2Fp5-mst-13.2.git

fix 17425 for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.1.5.0.20020709164958.0313c008@exchi01>

p4raw-id: //depot/perl@17455
---

diff --git a/t/op/magic.t b/t/op/magic.t
index a85ff6b..c21b12a 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -232,8 +232,9 @@ EOF
 
     local $ENV{PATH}= ".";
     (my $script_name = $script) =~ s/.*(show-shebang)/$1/;
+    $script_name = "[]$script_name" if $Is_VMS;
     $s1 = "\$^X is $perl, \$0 is $script_name\n" if $Is_MSWin32;
-    $_ = `$script_name`;
+    $_ = $Is_VMS ? `$^X $script_name` : `$script_name`;
     s/\.exe//i if $Is_Dos or $Is_Cygwin or $Is_os2;
     s{\bminiperl\b}{perl}; # so that test doesn't fail with miniperl
     s{is perl}{is $perl}; # for systems where $^X is only a basename