[Moscow.pm] unexpected bit width

[Maxim]

У меня не воспроизводится.

$perl -v | head -2 | tail -1
This is perl, v5.10.1 (*) built for i386-linux-thread-multi

Пример запускается и не ругается.
----------------------
$cat test.pl
#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use Data::Dumper;

my $str = " № 00";

my $res = ($str =~ /\bXXX\s?0/i);
warn  Dumper $res;
-----------------------
$LC_ALL=ru_RU.utf8 perl test.pl
$VAR1 = '';
-----------------------
$ perl test.pl
$VAR1 = '';
-----------------------



On Tue, 2014-04-22 at 23:16 +0400, Alan Rafagudinov wrote:
> Привет, коллеги!
> 
> Мозг себе сломал, не могу понять природу ошибки:
> 
> 
> #!/usr/bin/env perl
> 
> use strict;
> use utf8;
> 
> my $str = " № 00";
> 
> $str =~ /\bXXX\s?0/i;
> 
> 
> При запуске этого кода получаю:
> 
> "panic: swash_fetch got swatch of unexpected bit width, slen=32,
> needents=64 at ./1.pl line 8."
> 
> Есть идеи почему?
> 
> Кстати, например, следующий код не ругается:
> 
> 
> #!/usr/bin/env perl
> 
> use strict;
> use utf8;
> 
> my $str = " № 0";
> 
> $str =~ /\bXXX\s?0/i;