[perl-Glib-Object-Introspection] Increase the ref count of callback user data instead of passing a copy

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

commit d01a2b5c1bfd194ddb68021369b41b7f6e07b115
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun Aug 8 19:03:31 2010 +0200

    Increase the ref count of callback user data instead of passing a copy

 GObjectIntrospection.xs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/GObjectIntrospection.xs b/GObjectIntrospection.xs
index ddf0485..d50af0c 100644
--- a/GObjectIntrospection.xs
+++ b/GObjectIntrospection.xs
@@ -1265,7 +1265,7 @@ invoke_callback (ffi_cif* cif, gpointer resp, gpointer* args, gpointer userdata)
 
 	/* push user data onto the Perl stack */
 	if (info->data)
-		XPUSHs (sv_2mortal (newSVsv (info->data)));
+		XPUSHs (sv_2mortal (SvREFCNT_inc (info->data)));
 
 	PUTBACK;