1#!./perl 2 3BEGIN { 4 require Config; import Config; 5 if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') { 6 print "1..0\n"; 7 exit 0; 8 } 9} 10 11print "1..2\n"; 12 13eval <<'EOP'; 14 no ops 'fileno'; # equiv to "perl -M-ops=fileno" 15 $a = fileno STDIN; 16EOP 17 18print $@ =~ /trapped/ ? "ok 1\n" : "not ok 1\n# $@\n"; 19 20eval <<'EOP'; 21 use ops ':default'; # equiv to "perl -M(as above) -Mops=:default" 22 eval 1; 23EOP 24 25print $@ =~ /trapped/ ? "ok 2\n" : "not ok 2\n# $@\n"; 26 271; 28