From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 30 May 2002 22:14:15 +0000 (-0500)
Subject: t/test.pl, which_perl, VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=73421c4abe32ecb24dd956572fe602388bb7bcfc;p=p5sagit%2Fp5-mst-13.2.git

t/test.pl, which_perl, VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <a0511170ab91c997b6866@[172.16.52.1]>

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

diff --git a/t/test.pl b/t/test.pl
index 9b3d9d6..427a64f 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -433,6 +433,9 @@ sub which_perl {
     unless (defined $Perl) {
 	$Perl = $^X;
 	
+	# VMS should have 'perl' aliased properly
+	return $Perl if $^O eq 'VMS';
+
 	my $exe;
 	eval "require Config; Config->import";
 	if ($@) {