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 09b43e2a22fbf702f0354d315ff402c3c4c62cfd
Author: Daniel P. Berrange <d...@berrange.com>
Date: Tue Nov 23 23:26:53 2004 +0000
Added add_match call
---
DBus.xs | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
diff --git a/DBus.xs b/DBus.xs
index f6e5e3f..c60c2bc 100644
--- a/DBus.xs
+++ b/DBus.xs
@@ -511,8 +511,24 @@ _add_filter(con, code)
SV *code;
CODE:
SvREFCNT_inc(code);
+ PD_DEBUG("Adding filter %p\n", code);
dbus_connection_add_filter(con, _message_filter, code,
_filter_release);
+void
+dbus_bus_add_match(con, rule)
+ DBusConnection *con;
+ char *rule;
+ PREINIT:
+ DBusError error;
+ CODE:
+ dbus_error_init(&error);
+ PD_DEBUG("Adding match %s\n", rule);
+ dbus_bus_add_match(con, rule, &error);
+ if (dbus_error_is_set(&error)) {
+ croak("cannot add match");
+ }
+
+
int
dbus_bus_aquire_service(con, service_name)
DBusConnection *con;
--
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
