} else {
$UTF8_STDIN = 0;
}
-my $NTEST = 44 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 5 : 0)
+my $NTEST = 45 - (($DOSISH || !$FASTSTDIO) ? 7 : 0) - ($DOSISH ? 5 : 0)
+ $UTF8_STDIN;
sub PerlIO::F_UTF8 () { 0x00008000 } # from perliol.h
[ "stdio" ],
"binmode");
+ # RT78844
+ {
+ local $TODO = "RT#78844";
+ local $@ = "foo";
+ binmode(F, ":encoding(utf8)");
+ is( $@, "foo", '$@ not clobbered by binmode and :encoding');
+ }
+
close F;
{