[perl-Glib-Object-Introspection] Update some debug prints

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

commit d26f167d488c0ad5f6eb5095c0687e0c3fddb890
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Fri Jan 25 18:00:27 2013 +0100

    Update some debug prints

 gperl-i11n-invoke-perl.c |   10 ++++++++--
 1 files changed, 8 insertions(+), 2 deletions(-)
---
diff --git a/gperl-i11n-invoke-perl.c b/gperl-i11n-invoke-perl.c
index 12f374f..602b3a3 100644
--- a/gperl-i11n-invoke-perl.c
+++ b/gperl-i11n-invoke-perl.c
@@ -54,6 +54,10 @@ invoke_perl_code (ffi_cif* cif, gpointer resp, gpointer* args, gpointer userdata
 	data_sv = info->data ? SvREFCNT_inc (info->data) : NULL;
 	first_sv = info->swap_data ? data_sv     : instance_sv;
 	last_sv  = info->swap_data ? instance_sv : data_sv;
+	dwarn ("  info->data = %p, info->swap_data = %d\n",
+	       info->data, info->swap_data);
+	dwarn ("  instance = %p, data = %p, first = %p, last = %p\n",
+	       instance_sv, data_sv, first_sv, last_sv);
 	if (first_sv)
 		XPUSHs (sv_2mortal (first_sv));
 
@@ -242,10 +246,12 @@ invoke_perl_code (ffi_cif* cif, gpointer resp, gpointer* args, gpointer userdata
 
 		dwarn ("ret type: %p\n"
 		       "  is pointer: %d\n"
-		       "  tag: %d\n",
+		       "  tag: %d\n"
+		       "  transfer: %d\n",
 		       type_info,
 		       g_type_info_is_pointer (type_info),
-		       g_type_info_get_tag (type_info));
+		       g_type_info_get_tag (type_info),
+		       transfer);
 
 		sv_to_arg (POPs, &arg, NULL, type_info,
 		           transfer, may_be_null, &iinfo);