Commit | Line | Data |
---|---|---|
378cc40b | 1 | #!./perl |
2 | ||
79072805 | 3 | # $RCSfile: dup.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:27 $ |
378cc40b | 4 | |
5 | print "1..6\n"; | |
6 | ||
7 | print "ok 1\n"; | |
8 | ||
a687059c | 9 | open(dupout,">&STDOUT"); |
10 | open(duperr,">&STDERR"); | |
378cc40b | 11 | |
a687059c | 12 | open(STDOUT,">Io.dup") || die "Can't open stdout"; |
13 | open(STDERR,">&STDOUT") || die "Can't open stderr"; | |
378cc40b | 14 | |
a687059c | 15 | select(STDERR); $| = 1; |
16 | select(STDOUT); $| = 1; | |
378cc40b | 17 | |
a687059c | 18 | print STDOUT "ok 2\n"; |
19 | print STDERR "ok 3\n"; | |
378cc40b | 20 | system 'echo ok 4'; |
21 | system 'echo ok 5 1>&2'; | |
22 | ||
a687059c | 23 | close(STDOUT); |
24 | close(STDERR); | |
378cc40b | 25 | |
a687059c | 26 | open(STDOUT,">&dupout"); |
27 | open(STDERR,">&duperr"); | |
378cc40b | 28 | |
29 | system 'cat Io.dup'; | |
30 | unlink 'Io.dup'; | |
31 | ||
a687059c | 32 | print STDOUT "ok 6\n"; |