Last patch needed to get Perl5.7 to build natively on VOS

   Message-Id: <95AE3CDB3543D511883A0020485B38B90235349B@exna3.stratus.com>

p4raw-id: //depot/perl@14124

1 files changed, 7 insertions, 5 deletions

diff --git a/t/test.pl b/t/test.pl
index 4fdbd6fcf3..14d5334e05 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -368,11 +368,13 @@ sub which_perl {
 		$Perl = File::Spec->catfile(File::Spec->curdir(), $perl);
 	    }
 	}
-	
-        # Its like this.  stat on Cygwin treats 'perl' to mean 'perl.exe'
-        # but open does not.  This can get confusing, so to be safe we
-        # always put the .exe on the end on Cygwin.
-        $Perl .= $exe if $^O eq 'cygwin' && $Perl !~ /\Q$exe\E$/;
+
+	# Build up the name of the executable file from the name of
+	# the command.
+
+	if ($Perl !~ /\Q$exe\E$/i) {
+	    $Perl .= $exe;
+	}
 
 	warn "which_perl: cannot find $Perl from $^X" unless -f $Perl;