5 unless(grep /blib/, @INC) {
7 @INC = '../lib' if -d '../lib';
14 if(-d "lib" && -f "TEST") {
15 if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
42 $stdin = bless \*STDIN, "IO::Handle";
43 $stdin->fdopen($pipe,"r");
44 exec 'tr', 'YX', 'ko';
68 $stdout = bless \*STDOUT, "IO::Handle";
69 $stdout->fdopen($pipe,"w");
70 print STDOUT "not ok 3\n";
71 exec 'echo', 'not ok 4';
81 $SIG{'PIPE'} = 'broken_pipe';
87 print $pipe "not ok 5\n";