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

diff --git a/lib/List/Index.pm b/lib/List/Index.pm
index 50e48a5..e30beef 100644
--- a/lib/List/Index.pm
+++ b/lib/List/Index.pm
@@ -45,9 +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] and $i;
 		$links[$i]->[1] = $link;
 	}
 	$links[-1]->[1] = '';
+	$links[0]->[0] = '';
 
 	return \@links;
 }