summaryrefslogtreecommitdiff
path: root/t/test.pl
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2002-05-30 17:14:15 -0500
committerJarkko Hietaniemi <jhi@iki.fi>2002-05-31 02:13:06 +0000
commit73421c4abe32ecb24dd956572fe602388bb7bcfc (patch)
treeab05805db55b6232c4b9bcaab2c46b0606785b28 /t/test.pl
parent644e05979061a4567b02ea47b82c614e1fd56d34 (diff)
downloadperl-73421c4abe32ecb24dd956572fe602388bb7bcfc.tar.gz
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
Diffstat (limited to 't/test.pl')
-rw-r--r--t/test.pl3
1 files changed, 3 insertions, 0 deletions
diff --git a/t/test.pl b/t/test.pl
index 9b3d9d67cf..427a64f578 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 ($@) {