Package: libregexp-assemble-perl
Version: 0.35-5
Severity: important
This perl script terminates:
use strict;
use Regexp::Assemble;
my $ra = Regexp::Assemble-new(
unroll_plus = 1 # change a+ to aa*, allowing possibly more reduction
);
# any of bellow valid regular expression can be uncommented, to show problem
#$ra-add('((a|b)cz+)?');
#$ra-add('((ab|cy)z)');
$ra-add('((x)y)'); # simplest one
#$ra-add('((x)+y)+');
#$ra-add('(b(x))');
#$ra-add('a(b(x))');
print $ra-re;
It stops with error like:
Unmatched ( in regex; marked by -- HERE in m/\A( -- HERE (x)\*(\??)\Z/ at
/usr/share/perl5/Regexp/Assemble.pm line 2734.
It looks that Regexp::Assembler incorrectly handles paranthesis for some
reasons in this simple expressions. Interesingly despite this simplest one
example not having + operator, Regexp::Assemble behaves correctly after
disabling unroll_plus option!
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 debian-bugs-dist-requ...@lists.debian.org
with a subject of unsubscribe. Trouble? Contact listmas...@lists.debian.org