diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/io/dup.t | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/t/io/dup.t b/t/io/dup.t index af13d4d8f7..9b656ec8b3 100755 --- a/t/io/dup.t +++ b/t/io/dup.t @@ -2,7 +2,7 @@ # $RCSfile: dup.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:27 $ -print "1..6\n"; +print "1..8\n"; print "ok 1\n"; @@ -17,14 +17,10 @@ select(STDOUT); $| = 1; print STDOUT "ok 2\n"; print STDERR "ok 3\n"; -if ($^O eq 'MSWin32') { print `echo ok 4`; print `echo ok 5 1>&2`; # does this work? -} -else { - system 'echo ok 4'; - system 'echo ok 5 1>&2'; -} + system 'echo ok 6'; + system 'echo ok 7 1>&2'; close(STDOUT); close(STDERR); @@ -36,5 +32,5 @@ if ($^O eq 'MSWin32') { print `type Io.dup` } else { system 'cat Io.dup' } unlink 'Io.dup'; -print STDOUT "ok 6\n"; +print STDOUT "ok 8\n"; |