4 unless(grep /blib/, @INC) {
14 if ($Config{'extensions'} !~ /\bIO\b/) {
15 print "1..0 # Skip: IO extension not built\n";
19 if( $^O eq 'VMS' && $Config{'vms_cc_type'} ne 'decc' ) {
20 print "1..0 # Skip: not compatible with the VAXCRTL\n";
30 $x = new_tmpfile IO::File or print "not ";
37 print $x "not ok 3\n";
46 print $! ? "ok 4 # $!\n" : "not ok 4\n";