From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 10 Dec 2001 18:25:37 +0000 (-0600)
Subject: (was Re: [PATCH perl@13600] cat2type in tests for VMS)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=da405c168138eaa82094dadaa4d629c141f368c3;p=p5sagit%2Fp5-mst-13.2.git

(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
---

diff --git a/t/op/write.t b/t/op/write.t
index a86b4eb..fdc6e56 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';
 
diff --git a/t/test.pl b/t/test.pl
index 4f8a463..b6f4258 100644
--- 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,