From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Dec 2001 21:01:02 +0000 (+0000)
Subject: Tweak the $Perl computation.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eff5376413b6d854183cc46d552065f2e323945d;p=p5sagit%2Fp5-mst-13.2.git

Tweak the $Perl computation.

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

diff --git a/t/test.pl b/t/test.pl
index fa7eecc..041011c 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -282,8 +282,10 @@ BEGIN: {
 # 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.