From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 10 Dec 2001 16:38:14 +0000 (-0600)
Subject: cat2type in tests for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cda41bc103281f18855c0da8ed14366b1358eda9;p=p5sagit%2Fp5-mst-13.2.git

cat2type in tests for VMS
Message-Id: <5.1.0.14.2.20011210154846.01aef188@exchi01>

p4raw-id: //depot/perl@13603
---

diff --git a/ext/IO/lib/IO/t/io_dup.t b/ext/IO/lib/IO/t/io_dup.t
index 351a38d..eb6e911 100755
--- a/ext/IO/lib/IO/t/io_dup.t
+++ b/ext/IO/lib/IO/t/io_dup.t
@@ -55,7 +55,7 @@ $stdout->close;
 $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';
 
diff --git a/t/comp/multiline.t b/t/comp/multiline.t
index b4b04da..bc02391 100755
--- a/t/comp/multiline.t
+++ b/t/comp/multiline.t
@@ -36,7 +36,7 @@ if ($z eq $y) {print "ok 2\n";} else {print "not ok 2\n";}
 
 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`;
 
diff --git a/t/io/dup.t b/t/io/dup.t
index 3d78245..96fe3be 100755
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -46,7 +46,7 @@ close(STDERR);
 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';