XXX: omit range end if it equals start

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

diff --git a/lib/List/Index.pm b/lib/List/Index.pm
index 50e48a5eb30f71d6b3abaefe77bcbd2a09b9cfa7..00f2bdb29e976de666f8bd8579cc56b88ca4552d 100644 (file)
--- 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] = '';