ops.t revision 1
1N/A chdir 't' if -d 't'; 1N/A no ops 'fileno';
# equiv to "perl -M-ops=fileno" 1N/Aprint $@ =~ /
trapped/ ?
"ok 1\n" :
"not ok 1\n# $@\n";
1N/A use ops ':default';
# equiv to "perl -M(as above) -Mops=:default" 1N/Aprint $@ =~ /
trapped/ ?
"ok 2\n" :
"not ok 2\n# $@\n";