[libnet-dbus-perl] 33/335: Expose the dbus_bus_register method

[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 7d51133fc5b5619dfdd337dc9041eb38d4bbb540
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Mon Dec 27 16:17:46 2004 +0000

    Expose the dbus_bus_register method
---
 DBus.xs | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/DBus.xs b/DBus.xs
index c60c2bc..d43a4aa 100644
--- a/DBus.xs
+++ b/DBus.xs
@@ -514,6 +514,19 @@ _add_filter(con, code)
 	PD_DEBUG("Adding filter %p\n", code);
         dbus_connection_add_filter(con, _message_filter, code, _filter_release);
 
+dbus_bool_t
+dbus_bus_register(con)
+        DBusConnection *con;
+    PREINIT:
+        DBusError error;
+        int reply;
+    CODE:
+        dbus_error_init(&error);
+        if (!(reply = dbus_bus_register(con, &error))) {
+          croak(error.message);
+        }
+        RETVAL = reply;
+
 void
 dbus_bus_add_match(con, rule)
         DBusConnection *con;
@@ -525,7 +538,7 @@ dbus_bus_add_match(con, rule)
 	PD_DEBUG("Adding match %s\n", rule);
         dbus_bus_add_match(con, rule, &error);
 	if (dbus_error_is_set(&error)) {
-	  croak("cannot add match");
+	  croak("cannot add match %s", error.message);
  	}
 
 

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