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

[Андрей Асякин]

)) 5.19 - текущая разрабатываемая версия, конечно там будут баги, да не 
один)


24.04.2014 2:27, Alan Rafagudinov пишет:
> Похоже баг в версии 5.19.9 (x86_64) был. В 5.19.11 - уже не
> воспроизводится. Кому интересно покопаться, попробуйте запустить код
> http://rafagudinov.me/perl_bug.pl в 5.19.9.
>
>
>> У меня не воспроизводится.
>>
>> $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 = '';
>>> -----------------------
>>>
>>>
>>>
>>> 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
>>> moscow-pm на pm.org | http://moscow.pm.org
>>>
>>
>>