diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-12-10 12:25:37 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-11 00:39:20 +0000 |
| commit | da405c168138eaa82094dadaa4d629c141f368c3 (patch) | |
| tree | 1c757d868a1edb53fbd058553ca481d4770d00da /t | |
| parent | 7bbfeec91477c8c19c04cbe45cf176673150c40e (diff) | |
| download | perl-da405c168138eaa82094dadaa4d629c141f368c3.tar.gz | |
(was Re: [PATCH perl@13600] cat2type in tests for VMS)
Message-Id: <5.1.0.14.2.20011210174517.029c7ec0@mail.mac.com>
p4raw-id: //depot/perl@13606
Diffstat (limited to 't')
| -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, |