diff options
| -rwxr-xr-x | t/op/write.t | 2 | ||||
| -rw-r--r-- | t/test.pl | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/t/op/write.t b/t/op/write.t index a86b4ebb9a..fdc6e56d86 100755 --- a/t/op/write.t +++ b/t/op/write.t @@ -7,7 +7,7 @@ BEGIN { print "1..44\n"; -my $CAT = ($^O eq 'MSWin32' || $^O eq 'NetWare') ? 'type' +my $CAT = ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') ? 'type' : ($^O eq 'MacOS') ? 'catenate' : 'cat'; @@ -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, |