)) 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: Иван Соколов <[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 = '';
-----------------------
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
