Followup: we do *not* see this failure if we flatten the loop, e.g:
use strict;
my $s ;
$s = pack('C', 200);
print "pack('C', 200): is_utf8=" . (utf8::is_utf8($s) ? 'yes' : 'no ').
"\t$s\t" . join(',', unpack('C*', $s)) . "\n";
$s = pack('U', 200);
print "pack('U', 200): is_utf8=" . (utf8::is_utf
Bob Hallissy wrote in perl.unicode :
> Am I doing something wrong or is this a bug:
>
> use strict;
> my $p;
> foreach $p (qw (C U C))
> {
>my $s = pack($p, 200);
>print "pack('$p', 200): is_utf8=" . (utf8::is_utf8($s) ? 'yes' : 'no ')
> . "\t$s\t" . join(',', unpack('C*', $s)) . "\n";
> }
