Change 13522 by jhi@alpha on 2001/12/07 21:01:02
Tweak the $Perl computation.
Affected files ...
.... //depot/perl/t/test.pl#18 edit
Differences ...
==== //depot/perl/t/test.pl#18 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl.~1~ Fri Dec 7 14:15:05 2001
+++ perl/t/test.pl Fri Dec 7 14:15:05 2001
@@ -282,8 +282,10 @@
# We do this at compile time before the test might have chdir'd around
# and make sure its absolute in case they do later.
my $Perl = $^X;
-$Perl = File::Spec->rel2abs(File::Spec->catfile(File::Spec->curdir(), $Perl))
- if $^X eq "perl$Config{_exe}";
+$Perl =
+ File::Spec->rel2abs(File::Spec->catfile(File::Spec->curdir(),
+ "perl$Config{_exe}"))
+ if $Perl =~ /^perl\Q$Config{_exe}\E$/i;
warn "Can't generate which_perl from $^X" unless -f $Perl;
# For subcommands to use.
End of Patch.
