[libnet-dbus-perl] 112/335: Fix method name for introspection to be "Set" rather than "Get" when writing properties

[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 469d433443baa83acf9e0d32a43b6023e1108c7a
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Mon Sep 26 19:24:48 2005 +0000

    Fix method name for introspection to be "Set" rather than "Get" when writing properties
---
 lib/Net/DBus/Object.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Net/DBus/Object.pm b/lib/Net/DBus/Object.pm
index 3ff9340..aadde1c 100644
--- a/lib/Net/DBus/Object.pm
+++ b/lib/Net/DBus/Object.pm
@@ -398,7 +398,7 @@ sub _dispatch_prop_write {
 						       description => "no introspection data exported for properties");
     }
     
-    my ($pinterface, $pname, $pvalue) = $ins->decode($message, "methods", "Get", "params");
+    my ($pinterface, $pname, $pvalue) = $ins->decode($message, "methods", "Set", "params");
     
     if (!$ins->has_property($pname, $pinterface)) {
 	return Net::DBus::Binding::Message::Error->new(replyto => $message,

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