(was Re: PerlIO regerssion tests?)

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

diff --git a/t/io/dup.t b/t/io/dup.t
index 9b656ec..a641db7 100755 (executable)
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -28,7 +28,7 @@ close(STDERR);
 open(STDOUT,">&dupout");
 open(STDERR,">&duperr");
 
-if ($^O eq 'MSWin32') { print `type Io.dup` }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print `type Io.dup` }
 else                  { system 'cat Io.dup' }
 unlink 'Io.dup';