[libnet-dbus-perl] 221/335: Fixed marshalling of 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 4e86de54a478f0e587a4b9b65dc7a6830e00c323
Author: Daniel P. Berrange <berrange at redhat.com>
Date:   Mon Aug 28 21:28:21 2006 -0400

    Fixed marshalling of variants
---
 lib/Net/DBus/Binding/Introspector.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Net/DBus/Binding/Introspector.pm b/lib/Net/DBus/Binding/Introspector.pm
index 4d700c6..c00cb12 100644
--- a/lib/Net/DBus/Binding/Introspector.pm
+++ b/lib/Net/DBus/Binding/Introspector.pm
@@ -702,7 +702,7 @@ sub _parse_type {
 		    $current = pop @cont;
 		}
 	    } elsif ($type eq "v") {
-		push @{$current}, "variant";
+		push @{$current}, ["variant"];
 		if ($current->[0] eq "array") {
 		    $current = pop @cont;
 		}

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