Change 17424 by gsar@rake on 2002/07/08 19:54:10
tweak change#17421 ($0 is full path to script even when script
is invoked via PATH almost everywhere except Windows)
Affected files ...
.... //depot/maint-5.6/perl/t/op/magic.t#8 edit
Differences ...
==== //depot/maint-5.6/perl/t/op/magic.t#8 (xtext) ====
Index: perl/t/op/magic.t
--- perl/t/op/magic.t#7~17421~ Mon Jul 8 10:07:01 2002
+++ perl/t/op/magic.t Mon Jul 8 12:54:10 2002
@@ -186,7 +186,7 @@
local $ENV{PATH}= ".";
(my $script_name = $script) =~ s/.*(show-shebang)/$1/;
- $s1 = "\$^X is $perl, \$0 is $script_name\n";
+ $s1 = "\$^X is $perl, \$0 is $script_name\n" if $Is_MSWin32;
$_ = `$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
End of Patch.
