v5.14.2 полет нормальный
22 апреля 2014 г., 23:40 пользователь Maxim <[email protected]> написал: > У меня не воспроизводится. > > $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 > -- С уважением, Иван
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
