From 778f049caa3db15f72a8c344acc3750e69593aa3 Mon Sep 17 00:00:00 2001
From: Mike Kestner <mkestner@gmail.com>
Date: Wed, 12 Dec 2007 02:53:11 +0000
Subject: [PATCH] 2007-12-11  Mike Kestner  <mkestner@novell.com>

	* parser/gapi2xml.pl: fix tightloop in single-line prop declarations.

svn path=/trunk/gtk-sharp/; revision=91136
---
 ChangeLog          | 4 ++++
 parser/gapi2xml.pl | 6 +++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f5e38b21c..0c112acd9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-12-11  Mike Kestner  <mkestner@novell.com>
+
+	* parser/gapi2xml.pl: fix tightloop in single-line prop declarations.
+
 2007-12-06  Mike Kestner  <mkestner@novell.com>
 
 	* * : update to 2.12 API.
diff --git a/parser/gapi2xml.pl b/parser/gapi2xml.pl
index ad3c1ecf8..7e9aa4eca 100755
--- a/parser/gapi2xml.pl
+++ b/parser/gapi2xml.pl
@@ -22,7 +22,7 @@
 # Boston, MA 02111-1307, USA.
 ##############################################################
 
-$debug=0;
+$debug=$ENV{'GAPI_DEBUG'};
 
 use XML::LibXML;
 
@@ -1035,9 +1035,9 @@ sub parseInitFunc
 			# FIXME: This ignores the bool helper macro thingie.
 		} elsif ($line =~ /g_object_(class|interface)_install_prop/) {
 			my $prop = $line;
-			do {
+			while ($prop !~ /\)\s*;/) {
 				$prop .= $init_lines[++$linenum];
-			} until ($init_lines[$linenum] =~ /\)\s*;/);
+			}
 			addPropElem ($prop, $obj_el, 0);
 			$propcnt++;
 		} elsif ($line =~ /gtk_container_class_install_child_property/) {