From aac1c6571404bfbf5654a671d66c8ff043f9c9eb Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Mon, 23 Sep 2002 12:14:45 +0000
Subject: [PATCH] Oops, the card array was reversed!

---
 lib/perl/Query.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/perl/Query.pm b/lib/perl/Query.pm
index 2822a0ab..23d32e3b 100644
--- 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
-- 
2.39.2