3 # $Header: io.pipe,v 3.0.1.1 90/02/28 18:32:41 lwall Locked $
8 open(PIPE, "|-") || (exec 'tr', '[A-Z]', '[a-z]');
13 if (open(PIPE, "-|")) {
20 print STDOUT "not ok 3\n";
21 exec 'echo', 'not ok 4';
24 pipe(READER,WRITER) || die "Can't open pipe";
35 die "Couldn't fork" unless defined $pid;
37 print WRITER "not ok 5\n";
38 open(STDOUT,">&WRITER") || die "Can't dup WRITER to STDOUT";
40 exec 'echo', 'not ok 6';
44 pipe(READER,WRITER) || die "Can't open pipe";
47 $SIG{'PIPE'} = 'broken_pipe';
53 print WRITER "not ok 7\n";