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
t/20: clarify code structure
[perl/list-index.git]
/
lib
/
List
/
Index.pm
diff --git
a/lib/List/Index.pm
b/lib/List/Index.pm
index ea7b4331c99b45bc6bccff2e94b120cb6662c30e..3663c2459422638225058204dbc9854f667f315f 100644
(file)
--- a/
lib/List/Index.pm
+++ b/
lib/List/Index.pm
@@
-92,6
+92,7
@@
sub rangematch {
my $next = $char;
$next = chr( ord($char) + 1 ) if length $s1 > $i + 1;
my $last = 'z';
my $next = $char;
$next = chr( ord($char) + 1 ) if length $s1 > $i + 1;
my $last = 'z';
+ next if $next gt $last;
if (length $s2 > $i) {
if ($s2 =~ /^\Q$prefix/) {
$last = substr $s2, $i, 1;
if (length $s2 > $i) {
if ($s2 =~ /^\Q$prefix/) {
$last = substr $s2, $i, 1;