[libnet-dbus-perl] 30/335: Added add_match call

[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 09b43e2a22fbf702f0354d315ff402c3c4c62cfd
Author: Daniel P. Berrange <dan at 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