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 <d...@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
_______________________________________________
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
