XXX: omit first link start

[perl/list-index.git] / lib / List / Index.pm

diff --git a/lib/List/Index.pm b/lib/List/Index.pm
index 00f2bdb29e976de666f8bd8579cc56b88ca4552d..e30beef4734174a38f5443895ebad9042325efe8 100644 (file)
--- a/lib/List/Index.pm
+++ b/lib/List/Index.pm
@@ -45,10 +45,11 @@ sub ranges {
                my ($link, $lastchar) = $links[$i + 1]->[0] =~ /(.*)(.)/;
                $link .= $lastchar eq 'a' ? '.' : chr( ord($lastchar) - 1 )
                        unless $lastchar eq '.';
-               next if $link eq $links[$i]->[0];
+               next if $link eq $links[$i]->[0] and $i;
                $links[$i]->[1] = $link;
        }
        $links[-1]->[1] = '';
+       $links[0]->[0] = '';
 
        return \@links;
 }