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 system 'echo ok 5 1>&2';
26 open(STDOUT,">&dupout");
27 open(STDERR,">&duperr");
32 print STDOUT "ok 6\n";