[Moscow.pm] Дайджест списка рассылки Moscow-pm; том 78, выпуск 51

[Alan Rafagudinov]

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: Иван Соколов <vaneska.ru на gmail.com>
> To: "Moscow.pm group" <moscow-pm на pm.org>
> Subject: Re: [Moscow.pm] unexpected bit width
> Message-ID:
> 	<CAMgEUECm668dpDxzB7h1uySFwS-Sc-VC0c1PFSmdh51ctv4mqw на mail.gmail.com>
> Content-Type: text/plain; charset="utf-8"
> 
> v5.14.2 полет нормальный
> 
> 
> 22 апреля 2014 г., 23:40 пользователь Maxim <monk на nuked.su> написал:
> 
>> У меня не воспроизводится.
>>
>> $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 = '';
>> -----------------------