diff -Naur --exclude '*~' Text-Query-0.07/lib/Text/Query/SolveSimpleString.pm Text-Query-0.07-fix-syntax/lib/Text/Query/SolveSimpleString.pm
--- Text-Query-0.07/lib/Text/Query/SolveSimpleString.pm	1999-06-20 01:00:22.000000000 +0200
+++ Text-Query-0.07-fix-syntax/lib/Text/Query/SolveSimpleString.pm	2009-08-20 09:39:31.000000000 +0200
@@ -49,7 +49,7 @@
   } else {
     @ra = map { [ $_, $self->matchscalar($expr, $_) ] } @$pa;
   }
-  @ra = sort { $b->[$#{@$b}] <=> $a->[$#{@$a}] } @ra;
+  @ra = sort { $b->[-1] <=> $a->[-1] } @ra;
   return wantarray ? @ra : \@ra;
 }