[SCM] Debian packaging of Net-DBus CPAN distribution branch, master, updated. debian/1.0.0-1-21-gb2440ff

[Xavier Guimard]

The following commit has been merged in the master branch:
commit 7dc0d39a9175ca99c59e6b381b95c9b9a443e6f1
Author: Xavier Guimard <x.guimard at free.fr>
Date:   Mon Feb 4 06:12:36 2013 +0100

    Add patch to fix invocation of properties (Closes: #659759)

diff --git a/debian/patches/fix-invocation-of-properties.patch b/debian/patches/fix-invocation-of-properties.patch
new file mode 100644
index 0000000..7c40207
--- /dev/null
+++ b/debian/patches/fix-invocation-of-properties.patch
@@ -0,0 +1,36 @@
+Description: Fix invocation of properties
+Author: Daniel P. Berrange <dan at berrange.com>
+Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=659759
+Bug: http://hg.berrange.com/libraries/net-dbus--devel?cs=7e46ba9822e1
+Forwarded: yes
+Reviewed-By: Xavier Guimard <x.guimard at free.fr>
+Last-Update: 2013-02-04
+
+--- a/lib/Net/DBus/RemoteObject.pm
++++ b/lib/Net/DBus/RemoteObject.pm
+@@ -364,10 +364,10 @@
+ 		}
+ 
+ 		if (@_) {
+-		    $self->_call_method($mode, "Set", "org.freedesktop.DBus.Properties", $interface, 1, $name, $_[0]);
++		    $self->_call_method($mode, "Set", "org.freedesktop.DBus.Properties", 1, $interface, $name, $_[0]);
+ 		    return ();
+ 		} else {
+-		    return $self->_call_method($mode, "Get", "org.freedesktop.DBus.Properties", $interface, 1, $name);
++		    return $self->_call_method($mode, "Get", "org.freedesktop.DBus.Properties", 1, $interface, $name);
+ 		}
+ 	    }
+ 	} else {
+@@ -392,10 +392,10 @@
+ 		    warn "property $name in interface $interface on " . $self->get_object_path . " is deprecated";
+ 		}
+ 		if (@_) {
+-		    $self->_call_method($mode, "Set", "org.freedesktop.DBus.Properties", $interface, 1, $name, $_[0]);
++		    $self->_call_method($mode, "Set", "org.freedesktop.DBus.Properties", 1, $interface, $name, $_[0]);
+ 		    return ();
+ 		} else {
+-		    return $self->_call_method($mode, "Get", "org.freedesktop.DBus.Properties", $interface, 1, $name);
++		    return $self->_call_method($mode, "Get", "org.freedesktop.DBus.Properties", 1, $interface, $name);
+ 		}
+ 	    }
+ 	}
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..453ed2c
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+fix-invocation-of-properties.patch

-- 
Debian packaging of Net-DBus CPAN distribution