5 require Config; import Config;
6 if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
32 $stdin = bless \*STDIN, "IO::Handle";
33 $stdin->fdopen($pipe,"r");
34 exec 'tr', 'YX', 'ko';
58 $stdout = bless \*STDOUT, "IO::Handle";
59 $stdout->fdopen($pipe,"w");
60 print STDOUT "not ok 3\n";
61 exec 'echo', 'not ok 4';
71 $SIG{'PIPE'} = 'broken_pipe';
77 print $pipe "not ok 5\n";