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 be2f49ba74853c3f471c7eda25c11108bca1900c Author: Daniel P. Berrange <d...@berrange.com> Date: Tue Jun 28 22:36:57 2011 +0100 Fix warning due to possible undefined $interface in message --- AUTHORS | 1 + lib/Net/DBus/Object.pm | 6 ++++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/AUTHORS b/AUTHORS index 3065b00..dd23fc4 100644 --- a/AUTHORS +++ b/AUTHORS @@ -15,6 +15,7 @@ from Dave Belser <dbelser-at-aerosat-dot-com> Stefan Pfetzing <dream...@dreamind.de> Pavel Strashkin <pavel.strash...@gmail.com> + Mathieu Bridon <boche...@fedoraproject.org> [...send patches to get your name here!] diff --git a/lib/Net/DBus/Object.pm b/lib/Net/DBus/Object.pm index af5d5ad..1311dd5 100644 --- a/lib/Net/DBus/Object.pm +++ b/lib/Net/DBus/Object.pm @@ -474,7 +474,8 @@ sub _dispatch { my $reply; my $method_name = $message->get_member; my $interface = $message->get_interface; - if ($interface eq "org.freedesktop.DBus.Introspectable") { + if ((defined $interface) && + ($interface eq "org.freedesktop.DBus.Introspectable")) { if ($method_name eq "Introspect" && $self->_introspector && $ENABLE_INTROSPECT) { @@ -483,7 +484,8 @@ sub _dispatch { $self->_introspector->encode($reply, "methods", $method_name, "returns", $xml); } - } elsif ($interface eq "org.freedesktop.DBus.Properties") { + } elsif ((defined $interface) && + ($interface eq "org.freedesktop.DBus.Properties")) { if ($method_name eq "Get") { $reply = $self->_dispatch_prop_read($connection, $message); } elsif ($method_name eq "GetAll") { -- 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