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 4fbf6da504da0a6a1c0986aea88c9dd8f4d4298f
Author: Daniel P. Berrange <d...@berrange.com>
Date:   Thu Jun 30 21:44:57 2011 +0100

    Fix processing of marked variants
---
 lib/Net/DBus/Binding/Iterator.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/Net/DBus/Binding/Iterator.pm b/lib/Net/DBus/Binding/Iterator.pm
index 0e4ce3e..6d5fdac 100644
--- a/lib/Net/DBus/Binding/Iterator.pm
+++ b/lib/Net/DBus/Binding/Iterator.pm
@@ -489,6 +489,8 @@ sub guess_type {
                        $subtype = [ 
$self->guess_type(($value->value())[0]->[0]) ];
                    } elsif ($maintype == 
&Net::DBus::Binding::Message::TYPE_STRUCT) {
                        $subtype = [ map { $self->guess_type($_) } 
@{($value->value())[0]} ];
+                   } elsif ($maintype == 
&Net::DBus::Binding::Message::TYPE_VARIANT) {
+                       $subtype = $self->guess_type($value->value);
                    } else {
                        die "Unguessable compound type '$maintype' ('", 
chr($maintype), "')\n";
                    }

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

Reply via email to