3 # $Header: dup.t,v 4.0 91/03/20 01:50:49 lwall Locked $
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";