cat2type in tests for VMS
authorCraig A. Berry <craigberry@mac.com>
Mon, 10 Dec 2001 16:38:14 +0000 (10:38 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 10 Dec 2001 21:34:46 +0000 (21:34 +0000)
Message-Id: <5.1.0.14.2.20011210154846.01aef188@exchi01>

p4raw-id: //depot/perl@13603

ext/IO/lib/IO/t/io_dup.t
t/comp/multiline.t
t/io/dup.t

index 351a38d..eb6e911 100755 (executable)
@@ -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';
 
index b4b04da..bc02391 100755 (executable)
@@ -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`;
 
index 3d78245..96fe3be 100755 (executable)
@@ -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';