From 8107422b6cc0fda08e55218a3a79ff1580779a95 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Tue, 9 Nov 2004 14:09:00 +0000
Subject: [PATCH] Fixed a bug in parsing of replies -- the parse tree of each
 card was trimmed at the first ")". Affected only the free front-end.

---
 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 9a8b168e..a25fcd5f 100644
--- a/lib/perl/Query.pm
+++ b/lib/perl/Query.pm
@@ -209,7 +209,7 @@ sub do_parse_tree($$$$) {
 	while ($i < @$raw) {
 		$raw->[$i] =~ /^([^(]|\(.)(.*)/;
 		if ($1 eq ")") {
-			return $i;
+			return $i+1;
 		} elsif (!defined($syntax->{$1})) {
 			$cooked->{$1} = $2 if !defined($cooked->{$1});
 			$i++;
-- 
2.39.2