git.shiar.nl
/
perl
/
list-index.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
+++: rangematch() fixes
[perl/list-index.git]
/
lib
/
List
/
Index.pm
diff --git
a/lib/List/Index.pm
b/lib/List/Index.pm
index 9c86bc3e62ca39787ee6d4aa98ac28b18a1b223f..7214ced50c43057d929f8f34b9bf943016e134e3 100644
(file)
--- a/
lib/List/Index.pm
+++ b/
lib/List/Index.pm
@@
-90,7
+90,7
@@
sub rangematch {
if (length $s1 > $i) {
my $c1 = substr $s1, $i, 1;
if ($s1 =~ /^\Q$prefix/) {
if (length $s1 > $i) {
my $c1 = substr $s1, $i, 1;
if ($s1 =~ /^\Q$prefix/) {
- next if $c1
eq
$char;
+ next if $c1
le
$char;
}
}
push @allow, $prefix."(?![$char-$last])"
}
}
push @allow, $prefix."(?![$char-$last])"