[perl-Glib-Object-Introspection] Plug a leak in the wrapper for constants

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

commit dd9a0e4cc4a34f0df2ce791bdbcd071f385ed8c4
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Tue Jan 3 12:40:57 2012 +0100

    Plug a leak in the wrapper for constants

 GObjectIntrospection.xs |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)
---
diff --git a/GObjectIntrospection.xs b/GObjectIntrospection.xs
index 05d45af..723cfbd 100644
--- a/GObjectIntrospection.xs
+++ b/GObjectIntrospection.xs
@@ -423,6 +423,9 @@ _fetch_constant (class, basename, constant)
 	/* FIXME: What am I suppossed to do with the return value? */
 	g_constant_info_get_value (info, &value);
 	RETVAL = arg_to_sv (&value, type_info, GI_TRANSFER_NOTHING, NULL);
+#if GI_CHECK_VERSION (1, 30, 1)
+	g_constant_info_free_value (info, &value);
+#endif
 	g_base_info_unref ((GIBaseInfo *) type_info);
 	g_base_info_unref ((GIBaseInfo *) info);
     OUTPUT: