[libnet-dbus-perl] 194/335: Fixed handling of variants when parsing introspection data

[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 d791760be7788207c857cfd10510460134fac5c6
Author: Daniel P. Berrange <berrange at redhat.com>
Date:   Sat Jun 3 16:12:07 2006 -0400

    Fixed handling of variants when parsing introspection data
---
 lib/Net/DBus/Binding/Introspector.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/Net/DBus/Binding/Introspector.pm b/lib/Net/DBus/Binding/Introspector.pm
index 5fbe409..b37c170 100644
--- a/lib/Net/DBus/Binding/Introspector.pm
+++ b/lib/Net/DBus/Binding/Introspector.pm
@@ -728,6 +728,11 @@ sub _parse_type {
 		if ($current->[0] eq "array") {
 		    $current = pop @cont;
 		}
+            } elsif ($type eq "v") {
+                push @{$current}, "variant";
+                if ($current->[0] eq "array") {
+                    $current = pop @cont;
+                }
 	    } else {
 		die "unknown type sig '$type'";
 	    }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git