[libnet-dbus-perl] 291/335: Fix processing of marked variants

[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 4fbf6da504da0a6a1c0986aea88c9dd8f4d4298f
Author: Daniel P. Berrange <dan at 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