From eff5376413b6d854183cc46d552065f2e323945d Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Dec 2001 21:01:02 +0000
Subject: Tweak the $Perl computation.

p4raw-id: //depot/perl@13522
---
 t/test.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 't/test.pl')

diff --git a/t/test.pl b/t/test.pl
index fa7eecc9f2..041011cf98 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.
-- 
cgit v1.2.1