On Tue, Jul 09, 2002 at 05:07:12PM -0500, Craig A. Berry wrote:
> 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.
Thanks, applied.
> --- 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]
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
