Oops, the card array was reversed!

diff --git a/lib/perl/Query.pm b/lib/perl/Query.pm
index 2822a0ab42ca7fa307f95e133b1f5b9f0b653741..23d32e3b7c67e199ea600743bef5ddd8253ab169 100644 (file)
--- a/lib/perl/Query.pm
+++ b/lib/perl/Query.pm
@@ -195,7 +195,7 @@ sub query($$) {
        }
        $q->{CARDS} = [];
        while (@raw) {
-               push @{$q->{CARDS}}, { RAW => pop @raw };
+               push @{$q->{CARDS}}, { RAW => shift @raw };
        }
 
        # Parse everything