Change 13606 by jhi@alpha on 2001/12/11 00:39:20
Subject: [PATCH follow-up] (was Re: [PATCH perl@13600] cat2type in tests for
VMS)
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Mon, 10 Dec 2001 18:25:37 -0600
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/op/write.t#20 edit
.... //depot/perl/t/test.pl#26 edit
Differences ...
==== //depot/perl/t/op/write.t#20 (xtext) ====
Index: perl/t/op/write.t
--- perl/t/op/write.t.~1~ Mon Dec 10 17:45:06 2001
+++ perl/t/op/write.t Mon Dec 10 17:45:06 2001
@@ -7,7 +7,7 @@
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';
==== //depot/perl/t/test.pl#26 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl.~1~ Mon Dec 10 17:45:06 2001
+++ perl/t/test.pl Mon Dec 10 17:45:06 2001
@@ -343,6 +343,7 @@
} 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,
End of Patch.
