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

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