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 9b3d9d67cfd1e141a80a2bfa9aae1477dc457076..427a64f5786399a1a9f5ccb86523d0400431cf52 100644 (file)
--- 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 ($@) {