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
XXX: ranges returned as scalars, not arrays
[perl/list-index.git]
/
lib
/
List
/
Index.pm
diff --git
a/lib/List/Index.pm
b/lib/List/Index.pm
index 57027fa685656c8608c2bcd0a54a21fb93f264f9..ea7b4331c99b45bc6bccff2e94b120cb6662c30e 100644
(file)
--- a/
lib/List/Index.pm
+++ b/
lib/List/Index.pm
@@
-62,14
+62,14
@@
sub ranges {
}
use List::MoreUtils 'uniq';
}
use List::MoreUtils 'uniq';
- @links =
map { [$_] }
uniq @links;
+ @links = uniq @links;
for my $i (0 .. $#links - 1) {
for my $i (0 .. $#links - 1) {
- my ($link, $lastchar) = $links[$i + 1]
->[0]
=~ /(.*)(.)/;
+ my ($link, $lastchar) = $links[$i + 1] =~ /(.*)(.)/;
$link .= $lastchar le 'a' ? '.' : chr( ord($lastchar) - 1 );
$link .= $lastchar le 'a' ? '.' : chr( ord($lastchar) - 1 );
- next if $link eq $links[$i]
->[0]
and $i;
- $links[$i]
->[1] =
$link;
+ next if $link eq $links[$i] and $i;
+ $links[$i]
.= '-'.
$link;
}
}
- $links[-1]
->[1] = '
';
+ $links[-1]
.= '-
';
return \@links;
}
return \@links;
}