Package: libregexp-assemble-perl
Version: 0.35-5
Severity: important
Hello again.
One more problem.
This code doesn't work properly, but should without problem
use strict;
use Regexp::Assemble;
my $ra = Regexp::Assemble->new();
$ra->add('([^)])s-[01]');
print $ra->re;
It looks like Regexp::Assemble thinks that ) in [^)] need to be escaped
(It doesn't - only ]$^-\ have special mining and may need escaping (but
sometimes doesn't need))
but places escape character in wrong position:
Building: (?:([^)\])s-[01]|((x)y))
Invalid [] range "s-[" in regex; marked by <-- HERE in m/(?:([^)\])s-[ <-- HERE
01]|((x)y))/ at /usr/share/perl5/Regexp/Assemble.pm line 1004.
After escaping closing ], character class is still going on, and s-[ is
interpreted
as character class range, but s-[ is invalid due to the fact that s is AFTER [
in encoding.
(Building message is just print STDERR "Building: $str\n";
added to sub _build_re in Regexp/Assemble.pm line 1004., to make debugging
easier).
Regards,
Witek
-- System Information:
Debian Release: wheezy/sid
APT prefers unstable
APT policy: (500, 'unstable'), (1, 'experimental')
Architecture: i386 (i686)
Kernel: Linux 3.4.0-t43-devel-up-10118-g233e562-dirty
Locale: LANG=pl_PL.UTF-8, LC_CTYPE=pl_PL.UTF-8 (charmap=UTF-8) (ignored: LC_ALL
set to pl_PL.UTF-8)
Shell: /bin/sh linked to /bin/dash
Versions of packages libregexp-assemble-perl depends on:
ii perl 5.14.2-11
libregexp-assemble-perl recommends no packages.
libregexp-assemble-perl suggests no packages.
-- no debconf information
-- debsums errors found:
debsums: changed file /usr/share/perl5/Regexp/Assemble.pm (from
libregexp-assemble-perl package)
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
