diff --git a/lib/DDG/Goodie/Sort.pm b/lib/DDG/Goodie/Sort.pm index 162c076ce..f2a308119 100755 --- a/lib/DDG/Goodie/Sort.pm +++ b/lib/DDG/Goodie/Sort.pm @@ -38,7 +38,8 @@ handle remainder => sub { return unless all { looks_like_number($_) } @numbers; my $count = 0; - @numbers = map { 0 + $_ } grep { ++$count <= MAX_LIST_SIZE } @numbers; # Normalize and limit list size. + @numbers = map { 0 + $_ } grep { ++$count <= MAX_LIST_SIZE } @numbers; # Normalize and limit list size. + my $unsorted_list = join($delim, @numbers); my $sorted_list = join($delim, sort { $ascending ? $a <=> $b : $b <=> $a } @numbers); my $dir = $ascending ? 'ascendingly' : 'descendingly';