diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2016-03-09 15:15:35 +0200 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2016-03-09 15:15:35 +0200 |
| commit | eb134477e5b8434a0be8fc34ea14713b48590df2 (patch) | |
| tree | a187542fa6ca51cbe29775cb3a85ab00376249fc | |
| parent | 33a8545e42858e68e82e9f051ac48f4455bdfd2e (diff) | |
| download | regexp-opt-eb134477e5b8434a0be8fc34ea14713b48590df2.tar.gz regexp-opt-eb134477e5b8434a0be8fc34ea14713b48590df2.tar.bz2 | |
Recognize single-character suffixes.
| -rw-r--r-- | lib/List/Regexp.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/List/Regexp.pm b/lib/List/Regexp.pm index 6fd5773..e3332af 100644 --- a/lib/List/Regexp.pm +++ b/lib/List/Regexp.pm @@ -96,7 +96,7 @@ sub parse { if ($res[1] < 0) { my @rv = map { [ reverse @{$_} ] } @t; @res = split_prefix \@rv; - if ($res[1] > 0) { + if ($res[1] >= 0) { my @x = reverse @{$rv[0]}[0..$res[1]]; my $sfxlen = $#x; my $sfx = join('', @x); |