[perl-Glib-Object-Introspection] Remove an unneeded argument of an internal function



commit 41789fada7d451e46bcc193a36c543162b7ecb19
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Tue Jan 3 12:41:47 2012 +0100

    Remove an unneeded argument of an internal function

 GObjectIntrospection.xs          |    5 ++---
 lib/Glib/Object/Introspection.pm |    3 +--
 2 files changed, 3 insertions(+), 5 deletions(-)
---
diff --git a/GObjectIntrospection.xs b/GObjectIntrospection.xs
index 723cfbd..7005b92 100644
--- a/GObjectIntrospection.xs
+++ b/GObjectIntrospection.xs
@@ -638,13 +638,12 @@ _find_vfuncs_with_implementation (class, object_package, target_package)
 	g_base_info_unref (object_info);
 
 void
-_invoke_fallback_vfunc (class, basename, vfunc_package, vfunc_name, target_package, ...)
-	const gchar *basename
+_invoke_fallback_vfunc (class, vfunc_package, vfunc_name, target_package, ...)
 	const gchar *vfunc_package
 	const gchar *vfunc_name
 	const gchar *target_package
     PREINIT:
-	UV internal_stack_offset = 5;
+	UV internal_stack_offset = 4;
 	GIRepository *repository;
 	GIObjectInfo *info;
 	GType gtype;
diff --git a/lib/Glib/Object/Introspection.pm b/lib/Glib/Object/Introspection.pm
index 227e046..8c66a8f 100644
--- a/lib/Glib/Object/Introspection.pm
+++ b/lib/Glib/Object/Introspection.pm
@@ -174,8 +174,7 @@ sub setup {
             next VFUNC;
           }
           *{$full_perl_vfunc_name} = sub {
-            __PACKAGE__->_invoke_fallback_vfunc($basename,
-                                                $parent_package,
+            __PACKAGE__->_invoke_fallback_vfunc($parent_package,
                                                 $vfunc_name,
                                                 $first_parent,
                                                 @_);



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]