[libnet-dbus-perl] 111/335: Ensure interface, path & member are set on method replies. Add binding to set_caller, and get_serial methods.

[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 99d401b7153b81b3896fd779b63bb6c667de9509
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Mon Sep 26 19:23:47 2005 +0000

    Ensure interface, path & member are set on method replies. Add binding to set_caller, and get_serial methods.
---
 DBus.xs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/DBus.xs b/DBus.xs
index 4b83368..c3dcc29 100644
--- a/DBus.xs
+++ b/DBus.xs
@@ -794,10 +794,19 @@ const char *
 dbus_message_get_sender(msg)
 	DBusMessage *msg;
 
+dbus_uint32_t
+dbus_message_get_serial(msg)
+	DBusMessage *msg;
+
 const char *
 dbus_message_get_member(msg)
 	DBusMessage *msg;
 
+void
+dbus_message_set_sender(msg, sender);
+	DBusMessage *msg;
+        const char *sender;
+
 MODULE = Net::DBus::Binding::Message::Signal		PACKAGE = Net::DBus::Binding::Message::Signal
 
 PROTOTYPES: ENABLE
@@ -866,6 +875,9 @@ _create(call)
         if (!msg) {
           croak("No memory to allocate message");
         }
+        dbus_message_set_interface(msg, dbus_message_get_interface(call));
+        dbus_message_set_path(msg, dbus_message_get_path(call));
+        dbus_message_set_member(msg, dbus_message_get_member(call));
         PD_DEBUG("Create msg new method return %x\n", msg);
         PD_DEBUG("  Type %d\n", dbus_message_get_type(msg));
         PD_DEBUG("  Interface %s\n", dbus_message_get_interface(msg) ? dbus_message_get_interface(msg) : "");

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