This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(was Re: [PATCH perl@13600] cat2type in tests for VMS)
[perl5.git] / t / test.pl
index 4f8a463..b6f4258 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -343,6 +343,7 @@ sub which_perl {
        } else {
            $exe = $Config{_exe};
        }
+       $exe = '' unless defined $exe;
        
        # This doesn't absolutize the path: beware of future chdirs().
        # We could do File::Spec->abs2rel() but that does getcwd()s,