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 <d...@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
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
