Re: [ID 20020626.011] wantarray() causes clobbering of unrelated vars outside the sub

[p5sagit/p5-mst-13.2.git] / t / test.pl

diff --git a/t/test.pl b/t/test.pl
index 9b3d9d6..427a64f 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 ($@) {