[libnet-dbus-perl] 117/335: Added method for removing a signal match
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:35 UTC 2015
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 984d603dbd8329d26ac09b659197be69ed71540c
Author: Daniel P. Berrange <dan at berrange.com>
Date: Mon Sep 26 20:11:35 2005 +0000
Added method for removing a signal match
---
DBus.xs | 14 ++++++++++++++
lib/Net/DBus/Binding/Bus.pm | 9 ++++++++-
2 files changed, 22 insertions(+), 1 deletion(-)
diff --git a/DBus.xs b/DBus.xs
index c3dcc29..2e764e6 100644
--- a/DBus.xs
+++ b/DBus.xs
@@ -575,6 +575,20 @@ dbus_bus_add_match(con, rule)
_croak_error(&error);
}
+void
+dbus_bus_remove_match(con, rule)
+ DBusConnection *con;
+ char *rule;
+ PREINIT:
+ DBusError error;
+ CODE:
+ dbus_error_init(&error);
+ PD_DEBUG("Removeing match %s\n", rule);
+ dbus_bus_remove_match(con, rule, &error);
+ if (dbus_error_is_set(&error)) {
+ _croak_error(&error);
+ }
+
const char *
dbus_bus_get_unique_name(con)
DBusConnection *con;
diff --git a/lib/Net/DBus/Binding/Bus.pm b/lib/Net/DBus/Binding/Bus.pm
index 48c9376..a32225b 100644
--- a/lib/Net/DBus/Binding/Bus.pm
+++ b/lib/Net/DBus/Binding/Bus.pm
@@ -53,6 +53,13 @@ sub add_match {
$self->{connection}->dbus_bus_add_match($rule);
}
+sub remove_match {
+ my $self = shift;
+ my $rule = shift;
+
+ $self->{connection}->dbus_bus_remove_match($rule);
+}
+
sub DESTROY {
# Keep autoloader quiet
}
@@ -68,7 +75,7 @@ sub AUTOLOAD {
croak "&Net::DBus::Binding::Bus::constant not defined" if $constname eq '_constant';
if (!exists $Net::DBus::Binding::Bus::_constants{$constname}) {
- croak "no such constant \$Net::DBus::Binding::Bus::$constname";
+ croak "no such method $constname, and no constant \$Net::DBus::Binding::Bus::$constname";
}
{
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git
More information about the Pkg-perl-cvs-commits
mailing list