diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-12 23:17:44 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-12 23:17:44 +0000 |
commit | 9a0e8795930f6a4dd936dd484852c2d215570307 (patch) | |
tree | 1a656c9703644ffc819e0527fb7f6dba6c4a5ae0 /perl_checker_fake_packages/Glib.pm | |
parent | 811a65122d8248fbbfce20d638c412443c382faa (diff) | |
download | perl-MDK-Common-9a0e8795930f6a4dd936dd484852c2d215570307.tar perl-MDK-Common-9a0e8795930f6a4dd936dd484852c2d215570307.tar.gz perl-MDK-Common-9a0e8795930f6a4dd936dd484852c2d215570307.tar.bz2 perl-MDK-Common-9a0e8795930f6a4dd936dd484852c2d215570307.tar.xz perl-MDK-Common-9a0e8795930f6a4dd936dd484852c2d215570307.zip |
update from current patched xs sources
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) = @_ } |