Fixed a bug in parsing of replies -- the parse tree of each card was trimmed

at the first ")". Affected only the free front-end.

diff --git a/lib/perl/Query.pm b/lib/perl/Query.pm
index 9a8b168e79978047138394ffbd537829a5ef6fc0..a25fcd5fbb41006c258d53eb24622b43dac7df8b 100644 (file)
--- 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++;