diff options
Diffstat (limited to 'perl_checker_fake_packages/Glib.pm')
| -rw-r--r-- | perl_checker_fake_packages/Glib.pm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/perl_checker_fake_packages/Glib.pm b/perl_checker_fake_packages/Glib.pm index 9de0854..cf26786 100644 --- a/perl_checker_fake_packages/Glib.pm +++ b/perl_checker_fake_packages/Glib.pm @@ -3,8 +3,8 @@ package Glib; our @ISA = qw(); sub critical { my ($_class, $_domain, $_message) = @_ } sub error { my ($_class, $_domain, $_message) = @_ } -sub filename_from_unicode { my ($_class_or_filename, $_o_filename) = @_ } -sub filename_to_unicode { my ($_class_or_filename, $_o_filename) = @_ } +sub filename_from_unicode { my ($_filename) = @_ } +sub filename_to_unicode { my ($_filename) = @_ } sub install_exception_handler { my ($_class, $_func, $_o_data) = @_ } sub log { my ($_class, $_log_domain, $_log_level, $_message) = @_ } sub message { my ($_class, $_domain, $_message) = @_ } @@ -130,7 +130,4 @@ sub list_interfaces { my ($_class, $_package) = @_ } sub list_signals { my ($_class, $_package) = @_ } sub list_values { my ($_class, $_package) = @_ } sub package_from_cname { my ($_class, $_cname) = @_ } -sub register { my ($_class, $_parent_class, $_new_class, @_more_paras) = @_ } -sub register_enum { my ($_class, $_name, @_more_paras) = @_ } -sub register_flags { my ($_class, $_name, @_more_paras) = @_ } -sub register_object { my ($_class, $_parent_package, $_new_package, @_more_paras) = @_ } +sub register { my ($_class, $_parent_package, $_new_package, @_more_paras) = @_ } |