[libnet-dbus-perl] 299/335: Fix invocation of 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 39d6e3cfe2caf037a65d45651e0b0f33233bdd28
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Mon Jul 18 21:27:23 2011 +0100

    Fix invocation of properties
---
 lib/Net/DBus/RemoteObject.pm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/lib/Net/DBus/RemoteObject.pm b/lib/Net/DBus/RemoteObject.pm
index 37fc700..af7cf2e 100644
--- a/lib/Net/DBus/RemoteObject.pm
+++ b/lib/Net/DBus/RemoteObject.pm
@@ -412,13 +412,13 @@ sub AUTOLOAD {
 
 		if (@_) {
 		    $self->_net_dbus_call_method($mode, $timeout,
-						 "Set", "org.freedesktop.DBus.Properties",
-						 $interface, 1, $name, $_[0]);
+						 "Set", "org.freedesktop.DBus.Properties", 1,
+						 $interface, $name, $_[0]);
 		    return ();
 		} else {
 		    return $self->_net_dbus_call_method($mode, $timeout,
-							"Get", "org.freedesktop.DBus.Properties",
-							$interface, 1, $name);
+							"Get", "org.freedesktop.DBus.Properties", 1,
+							$interface, $name);
 		}
 	    }
 	} else {
@@ -445,13 +445,13 @@ sub AUTOLOAD {
 		}
 		if (@_) {
 		    $self->_net_dbus_call_method($mode, $timeout,
-						 "Set", "org.freedesktop.DBus.Properties",
-						 $interface, 1, $name, $_[0]);
+						 "Set", "org.freedesktop.DBus.Properties", 1,
+						 $interface, $name, $_[0]);
 		    return ();
 		} else {
 		    return $self->_net_dbus_call_method($mode, $timeout,
-							"Get", "org.freedesktop.DBus.Properties",
-							$interface, 1, $name);
+							"Get", "org.freedesktop.DBus.Properties", 1,
+							$interface, $name);
 		}
 	    }
 	}

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