Lines Matching refs:open
22 open(PIPE, "|-") || exec $Perl, '-pe', 'tr/YX/ko/';
24 printf PIPE "Xk %d - open |- || exec\n", curr_test();
35 if (open(PIPE, "-|")) {
43 printf STDOUT "not ok %d - open -|\n", curr_test();
56 pipe(READER,WRITER) || die "Can't open pipe";
73 open(STDOUT,">&WRITER") || die "Can't dup WRITER to STDOUT";
87 pipe(READER,WRITER) || die "Can't open pipe";
121 open NIL, qq{|$Perl -e "exit 0"} or die "open failed: $!";
137 open NIL, qq{|$Perl -e "exit 23";} or die "fork failed: $!";
152 my $pipe = open *FH, "sleep 2;exit 13|" or die "Open: $!\n";
167 # Test new semantics for missing command in piped open
170 ok( !open(P, "| "), 'missing command in piped open input' );
171 ok( !open(P, " |"), ' output');
177 open NIL, qq{|$Perl -e "exit 23"} or die "fork failed: $!";
186 open NIL, '/no_such_process |';