Re: Next cygwin round.

[p5sagit/p5-mst-13.2.git] / t / io / dup.t

diff --git a/t/io/dup.t b/t/io/dup.t
index 3d78245..96fe3be 100755 (executable)
--- 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';