У меня не воспроизводится. $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; -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
