[perl-Glib-Object-Introspection] Fix a few leaks

[Torsten Schönfeld <tsch src gnome org>]

commit 2586c4045e57f4b06fadb6bb5fefb8bff50a3701
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Mon Apr 19 22:45:21 2010 +0200

    Fix a few leaks

 GObjectIntrospection.xs |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)
---
diff --git a/GObjectIntrospection.xs b/GObjectIntrospection.xs
index ac28299..adfcf15 100644
--- a/GObjectIntrospection.xs
+++ b/GObjectIntrospection.xs
@@ -1224,7 +1224,9 @@ register_types (class, namespace, version, package)
 		    info_type != GI_INFO_TYPE_STRUCT &&
 		    info_type != GI_INFO_TYPE_UNION &&
 		    info_type != GI_INFO_TYPE_ENUM &&
-		    info_type != GI_INFO_TYPE_FLAGS) {
+		    info_type != GI_INFO_TYPE_FLAGS)
+		{
+			g_base_info_unref ((GIBaseInfo *) info);
 			continue;
 		}
 
@@ -1235,6 +1237,7 @@ register_types (class, namespace, version, package)
 			       namespace, name);
 		}
 		if (type == G_TYPE_NONE) {
+			g_base_info_unref ((GIBaseInfo *) info);
 			continue;
 		}
 
@@ -1507,6 +1510,8 @@ PPCODE:
 		g_base_info_unref ((GIBaseInfo *) arg_info);
 	}
 
+	g_base_info_unref ((GIBaseInfo *) info);
+
 	if (has_return_value)
 		out_i++;