Привет, коллеги!

Мозг себе сломал, не могу понять природу ошибки:


#!/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;
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить