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_utf8($s) ? 'yes' : 'no ').
"\t$s\t" . join(',', unpack('C*', $s)) . "\n";
$s = pack('C', 200);
print "pack('C', 200): is_utf8=" . (utf8::is_utf8($s) ? 'yes' : 'no ').
"\t$s\t" . join(',', unpack('C*', $s)) . "\n";
The failure (as below) occurs on Windows, Linux, and OSX.
Bob
On 2005-07-06 03:43:50 PM "Bob Hallissy" wrote:
>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";
>}
>
>Generates the following output:
>
>pack('C', 200): is_utf8=no ╚ 200
>pack('U', 200): is_utf8=yes ╚ 195,136
>Wide character in print at T:\test2.pl line 8.
>pack('C', 200): is_utf8=yes ╚ 200
>
>Specifically, the first and last ought to be the same, and I shouldn't be
>getting that error.
>
>Seen on perl 5.8.3, 5.8.6 and 5.8.7. E.g., my current perl -v:
>This is perl, v5.8.7 built for MSWin32-x86-multi-thread
>(with 7 registered patches, see perl -V for more detail)
>
>Copyright 1987-2005, Larry Wall
>
>Binary build 813 [148120] provided by ActiveState
>http://www.ActiveState.com
>ActiveState is a division of Sophos.
>Built Jun 6 2005 13:36:37
>
>TIA,
>
>Bob
>
