3 # $RCSfile: dup.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:27 $
9 open(dupout,">&STDOUT");
10 open(duperr,">&STDERR");
12 open(STDOUT,">Io.dup") || die "Can't open stdout";
13 open(STDERR,">&STDOUT") || die "Can't open stderr";
15 select(STDERR); $| = 1;
16 select(STDOUT); $| = 1;
18 print STDOUT "ok 2\n";
19 print STDERR "ok 3\n";
21 print `echo ok 5 1>&2`; # does this work?
23 system 'echo ok 7 1>&2';
28 open(STDOUT,">&dupout");
29 open(STDERR,">&duperr");
31 if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print `type Io.dup` }
32 else { system 'cat Io.dup' }
35 print STDOUT "ok 8\n";