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

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

commit bc87cbdcb1ce5f0eaa4e9e2850ce37ec23326a5a
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Sat Jan 19 19:56:21 2013 +0100

    Update some debug prints

 GObjectIntrospection.xs      |    2 +-
 gperl-i11n-invoke-info.c     |    3 ++-
 gperl-i11n-vfunc-interface.c |    4 ++--
 gperl-i11n-vfunc-object.c    |    8 ++++----
 4 files changed, 9 insertions(+), 8 deletions(-)
---
diff --git a/GObjectIntrospection.xs b/GObjectIntrospection.xs
index 8932bd8..908cc0c 100644
--- a/GObjectIntrospection.xs
+++ b/GObjectIntrospection.xs
@@ -776,7 +776,7 @@ _invoke_fallback_vfunc (class, vfunc_package, vfunc_name, target_package, ...)
 	gint field_offset;
 	gpointer func_pointer;
     PPCODE:
-	dwarn ("_invoke_parent_vfunc: %s.%s, target = %s\n",
+	dwarn ("_invoke_fallback_vfunc: %s.%s, target = %s\n",
 	       vfunc_package, vfunc_name, target_package);
 	gtype = gperl_object_type_from_package (target_package);
 	klass = g_type_class_peek (gtype);
diff --git a/gperl-i11n-invoke-info.c b/gperl-i11n-invoke-info.c
index 7fbad7e..968251a 100644
--- a/gperl-i11n-invoke-info.c
+++ b/gperl-i11n-invoke-info.c
@@ -11,8 +11,9 @@ prepare_c_invocation_info (GPerlI11nInvocationInfo *iinfo,
 {
 	guint i;
 
-	dwarn ("C invoke: %s\n"
+	dwarn ("C invoke: %s::%s::%s => %s\n"
 	       "  n_args: %d\n",
+	       package, namespace, function,
 	       g_base_info_get_name (info),
 	       g_callable_info_get_n_args (info));
 
diff --git a/gperl-i11n-vfunc-interface.c b/gperl-i11n-vfunc-interface.c
index b094310..f67d89c 100644
--- a/gperl-i11n-vfunc-interface.c
+++ b/gperl-i11n-vfunc-interface.c
@@ -40,8 +40,8 @@ generic_interface_init (gpointer iface, gpointer data)
 		/* callback_info takes over ownership of perl_method_name. */
 		callback_info = create_perl_callback_closure_for_named_sub (
 		                  field_interface_info, perl_method_name);
-		dwarn ("installing vfunc %s as %s at offset %d (vs. %d) inside %p\n",
-		       vfunc_name, perl_method_name,
+		dwarn ("generic_interface_init: installing vfunc %s.%s as %s at offset %d (vs. %d) inside %p\n",
+		       g_base_info_get_name (info), vfunc_name, perl_method_name,
 		       field_offset, g_vfunc_info_get_offset (vfunc_info),
 		       iface);
 		G_STRUCT_MEMBER (gpointer, iface, field_offset) = callback_info->closure;
diff --git a/gperl-i11n-vfunc-object.c b/gperl-i11n-vfunc-object.c
index 5a63223..6f22f83 100644
--- a/gperl-i11n-vfunc-object.c
+++ b/gperl-i11n-vfunc-object.c
@@ -37,8 +37,8 @@ generic_class_init (GIObjectInfo *info, const gchar *target_package, gpointer cl
 			HV * stash = gv_stashpv (target_package, 0);
 			GV * slot = gv_fetchmethod (stash, perl_method_name);
 			if (!slot) {
-				dwarn ("skipping vfunc %s because it has no implementation\n",
-				       vfunc_name);
+				dwarn ("generic_class_init: skipping vfunc %s.%s because it has no implementation\n",
+				      g_base_info_get_name (info), vfunc_name);
 				g_base_info_unref (vfunc_info);
 				g_free (perl_method_name);
 				continue;
@@ -55,8 +55,8 @@ generic_class_init (GIObjectInfo *info, const gchar *target_package, gpointer cl
 		/* callback_info takes over ownership of perl_method_name. */
 		callback_info = create_perl_callback_closure_for_named_sub (
 		                  field_interface_info, perl_method_name);
-		dwarn ("installing vfunc %s as %s at offset %d (vs. %d) inside %p\n",
-		       vfunc_name, perl_method_name,
+		dwarn ("generic_class_init: installing vfunc %s.%s as %s at offset %d (vs. %d) inside %p\n",
+		       g_base_info_get_name (info), vfunc_name, perl_method_name,
 		       field_offset, g_vfunc_info_get_offset (vfunc_info),
 		       class);
 		G_STRUCT_MEMBER (gpointer, class, field_offset) = callback_info->closure;