X-Git-Url: http://git.shiar.net/perl/list-index.git/blobdiff_plain/319dd675faee700a9fa0485863889a661ef9dc53..df37e7ec6afd25d57679dc37999a36887d2247ca:/lib/List/Index.pm

diff --git a/lib/List/Index.pm b/lib/List/Index.pm
index 00f2bdb..e30beef 100644
--- 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;
 }