[PATCH] fix 17425 for VMS

[Craig A. Berry]

This gets magic.t passing again.  We can't simply send a script name to the 
command shell; it has to be told what to run it with.

--- t/op/magic.t;-0     Mon Jul  8 19:18:33 2002
+++ t/op/magic.t        Tue Jul  9 15:34:33 2002
@@ -232,8 +232,9 @@
 
     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
[end of patch]