From: Martin Mares <mj@ucw.cz>
Date: Thu, 10 Oct 2002 20:47:01 +0000 (+0000)
Subject: Fixed bug in parse_tree() causing the parser to loop forever on some inputs.
X-Git-Tag: holmes-import~1322
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=f56916dc7057593bc6d257d81512863f77eac8e9;p=libucw.git

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 23d32e3b..b39b5ac0 100644
--- a/lib/perl/Query.pm
+++ b/lib/perl/Query.pm
@@ -235,6 +235,7 @@ sub do_parse_tree($$$$) {
 			$i++;
 		}
 	}
+	return $i;
 }
 
 sub format_tree($$$) {