Fixed bug in parse_tree() causing the parser to loop forever on some inputs.

It's interesting excercise to find out why not on all inputs :-)

diff --git a/lib/perl/Query.pm b/lib/perl/Query.pm
index 23d32e3b7c67e199ea600743bef5ddd8253ab169..b39b5ac0d9abcdcbc38fad953d1c6c502f82a7e4 100644 (file)
--- a/lib/perl/Query.pm
+++ b/lib/perl/Query.pm
@@ -235,6 +235,7 @@ sub do_parse_tree($$$$) {
                        $i++;
                }
        }
+       return $i;
 }
 
 sub format_tree($$$) {