4 unless(grep /blib/, @INC) {
13 if(-d "lib" && -f "TEST") {
14 if ($Config{'extensions'} !~ /\bIO\b/ && $^O ne 'VMS') {
26 $x = new_tmpfile IO::File or print "not ";
33 print $x "not ok 3\n";
42 print $! ? "ok 4 # $!\n" : "not ok 4\n";
44 # These shenanigans are intended to make a perl IO pointing to C FILE *
45 # (or equivalent) on a closed file handle. Something that will fail fgetops()
46 # Might be easier to use STDIN if (-t STDIN || -P STDIN) if ttys/pipes on
47 # all platforms fail to fgetpos()
50 if ($y->fdopen ($fn, "r")) {
52 $x->close() or die $!;
56 print "not ok 6 # closed handle returned defined position, \$!='$!'\n";
61 print "not ok 5 # failed to duplicated file number $fd\n", "not ok 6\n";