From: Martin Mares <mj@ucw.cz>
Date: Mon, 23 Sep 2002 12:14:45 +0000 (+0000)
Subject: Oops, the card array was reversed!
X-Git-Tag: holmes-import~1343
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=aac1c6571404bfbf5654a671d66c8ff043f9c9eb;p=libucw.git

Oops, the card array was reversed!
---

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