X-Git-Url: http://git.shiar.nl/perl/list-index.git/blobdiff_plain/418d40a30c8ce943796a98e5fc67d3660b26531a..3df9395c1a2f641564d8fca7fc843d066d1411d4:/lib/List/Index.pm

diff --git a/lib/List/Index.pm b/lib/List/Index.pm
index 513ce4f..c799221 100644
--- a/lib/List/Index.pm
+++ b/lib/List/Index.pm
@@ -8,7 +8,7 @@ our $VERSION = '1.00';
 
 sub new {
 	my ($class, $values) = @_;
-	bless [map { tr/{/./; $_ } sort map { s/[^a-z]/{/g; $_ } @$values], $class;
+	bless [sort map { s/[^a-z]/./g; $_ } @$values], $class;
 }
 
 sub ranges {