This is an automated email from the git hooks/post-receive script. intrigeri pushed a commit to branch experimental in repository libnet-dbus-perl.
commit 269442d48d75c49e9d22ac67860aabff411233fd Author: Daniel P. Berrange <d...@berrange.com> Date: Thu Sep 29 21:55:47 2005 +0000 Method parameters default to 'in' if no direction is given --- lib/Net/DBus/Binding/Introspector.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/Net/DBus/Binding/Introspector.pm b/lib/Net/DBus/Binding/Introspector.pm index e178585..7387442 100644 --- a/lib/Net/DBus/Binding/Introspector.pm +++ b/lib/Net/DBus/Binding/Introspector.pm @@ -136,6 +136,7 @@ sub has_method { push @interfaces, $interface; } } + return @interfaces; } @@ -365,7 +366,7 @@ sub _parse_method { my @sig = split //, $type; my @type = $self->_parse_type(\@sig); - if ($direction eq "in") { + if (!defined $direction || $direction eq "in") { push @params, @type; } elsif ($direction eq "out") { push @returns, @type; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits