Perl: v5.19.9 built for x86_64-linux (perlbrew)
Локаль: en_US.UTF-8 > У меня не воспроизводится. > > $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; > > > ------------------------------ > > Message: 3 > Date: Wed, 23 Apr 2014 09:27:15 +0400 > From: Иван Соколов <[email protected]> > To: "Moscow.pm group" <[email protected]> > Subject: Re: [Moscow.pm] unexpected bit width > Message-ID: > <camgeuecm668dpdxzb7h1uysfws-sc-vc0c1pfsmdh51ctv4...@mail.gmail.com> > Content-Type: text/plain; charset="utf-8" > > 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 = ''; >> ----------------------- -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
