fail.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
chdir 't' if -d 't';
}
ok(!binmode(FH,":-)"),"All punctuation fails binmode"); print "# $!\n";
ok(!binmode(FH,":nonesuch"),"Bad package fails binmode"); print "# $!\n";
print "# $!\n";
print "# $!\n";