Change 13603 by jhi@alpha on 2001/12/10 21:34:46
Subject: [PATCH perl@13600] cat2type in tests for VMS
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Mon, 10 Dec 2001 16:38:14 -0600
Message-Id: <5.1.0.14.2.20011210154846.01aef188@exchi01>
Affected files ...
.... //depot/perl/ext/IO/lib/IO/t/io_dup.t#4 edit
.... //depot/perl/t/comp/multiline.t#9 edit
.... //depot/perl/t/io/dup.t#12 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/t/io_dup.t#4 (xtext) ====
Index: perl/ext/IO/lib/IO/t/io_dup.t
--- perl/ext/IO/lib/IO/t/io_dup.t.~1~ Mon Dec 10 14:45:05 2001
+++ perl/ext/IO/lib/IO/t/io_dup.t Mon Dec 10 14:45:05 2001
@@ -55,7 +55,7 @@
$stdout->fdopen($dupout,"w");
$stderr->fdopen($duperr,"w");
-if ($^O eq 'MSWin32' || $^O eq 'NetWare') { print `type Io.dup` }
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') { print `type Io.dup` }
else { system 'cat Io.dup' }
unlink 'Io.dup';
==== //depot/perl/t/comp/multiline.t#9 (xtext) ====
Index: perl/t/comp/multiline.t
--- perl/t/comp/multiline.t.~1~ Mon Dec 10 14:45:05 2001
+++ perl/t/comp/multiline.t Mon Dec 10 14:45:05 2001
@@ -36,7 +36,7 @@
if ($count == 7) {print "ok 3\n";} else {print "not ok 3\n";}
-$_ = (($^O eq 'MSWin32') || $^O eq 'NetWare') ? `type Comp.try`
+$_ = (($^O eq 'MSWin32') || $^O eq 'NetWare' || $^O eq 'VMS') ? `type Comp.try`
: ($^O eq 'MacOS') ? `catenate Comp.try`
: `cat Comp.try`;
==== //depot/perl/t/io/dup.t#12 (xtext) ====
Index: perl/t/io/dup.t
--- perl/t/io/dup.t.~1~ Mon Dec 10 14:45:05 2001
+++ perl/t/io/dup.t Mon Dec 10 14:45:05 2001
@@ -46,7 +46,7 @@
open(STDOUT,">&DUPOUT");
open(STDERR,">&DUPERR");
-if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print `type Io.dup` }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare') || ($^O eq 'VMS')) { print `type Io.dup`
+}
else { system 'cat Io.dup' }
unlink 'Io.dup';
End of Patch.
