which_perl: if File::Spec fails, assume "./" and hope for the best.

p4raw-id: //depot/perl@13526

1 files changed, 4 insertions, 2 deletions

diff --git a/t/test.pl b/t/test.pl
index c276fb3990..5a81d54853 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -289,15 +289,17 @@ sub which_perl {
 	# which is a bit heavyweight to do here.
 	
 	if ($Perl =~ /^perl\Q$exe\E$/i) {
+	    my $perl = "perl$exe";
 	    eval "require File::Spec";
 	    if ($@) {
 		warn "test.pl had problems loading File::Spec: $@";
+		$Perl = "./$perl";
 	    } else {
-		$Perl = File::Spec->catfile(File::Spec->curdir(), "perl$exe");
+		$Perl = File::Spec->catfile(File::Spec->curdir(), $perl);
 	    }
 	}
 	
-	warn "which_perl: cannot find perl from $^X" unless -f $Perl;
+	warn "which_perl: cannot find $Perl from $^X" unless -f $Perl;
 	
 	# For subcommands to use.
 	$ENV{PERLEXE} = $Perl;