Wide character warnings missing from perlcc code.

[GoogleCodeExporter]

Perlcc:
$>perlcc -O3 -r -e'use warnings q{utf8}; my $w; local $SIG{__WARN__} = sub { $w 
= $_[0] }; my $c = chr(300); open F, ">", "a"; binmode(F, ":bytes:"); print F 
$c,"\n"; close F; print $w'

Perl
$>perl -e'use warnings q{utf8}; my $w; local $SIG{__WARN__} = sub { $w = $_[0] 
}; my $c = chr(300); open F, ">", "a"; binmode(F, ":bytes:"); print F $c,"\n"; 
close F; print $w' 
Wide character in print at -e line 1.

It seems like these warnings should be coming through right?

Original issue reported on code.google.com by todd.e.rinaldo on 7 May 2014 at 11:11

[GoogleCodeExporter]

yes, also in t/CORE/io/utf8.t: failing tests 

not ok 23
    # Failed at t/CORE/io/utf8.t line 126
    #      got ''
    # expected /(?^i:Wide character in print)/
not ok 33
    # Failed at t/CORE/io/utf8.t line 257
    #      got ''
    # expected /Wide character in print/
not ok 54 - <:utf8 readline must warn about bad utf8
    # Failed at t/CORE/io/utf8.t line 340
    #      got ''
    # expected /(?^:utf8 "\\xE4" does not map to Unicode .+ <F> line 1)/
not ok 55 - <:utf8 rcatline must warn about bad utf8
    # Failed at t/CORE/io/utf8.t line 344
    #      got ''
    # expected /(?^:utf8 "\\xF6" does not map to Unicode .+ <F> line 2)/

Original comment by reini.urban on 8 May 2014 at 10:28