[libnet-dbus-perl] 121/335: Method parameters default to 'in' if no direction is given

[Intrigeri]

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 <dan at 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