[libnet-dbus-perl] 102/335: Added access to dbus_bus_get_unique_name method
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:33 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 fcf8cd7f5ee52b9a514c7b95999702b8e5e83c6e
Author: Daniel P. Berrange <dan at berrange.com>
Date: Mon Sep 12 22:15:33 2005 +0000
Added access to dbus_bus_get_unique_name method
---
DBus.xs | 3 +++
lib/Net/DBus/Binding/Bus.pm | 7 +++++++
2 files changed, 10 insertions(+)
diff --git a/DBus.xs b/DBus.xs
index 327a445..4b83368 100644
--- a/DBus.xs
+++ b/DBus.xs
@@ -575,6 +575,9 @@ dbus_bus_add_match(con, rule)
_croak_error(&error);
}
+const char *
+dbus_bus_get_unique_name(con)
+ DBusConnection *con;
int
dbus_bus_request_name(con, service_name)
diff --git a/lib/Net/DBus/Binding/Bus.pm b/lib/Net/DBus/Binding/Bus.pm
index a6d2218..5d6a7f0 100644
--- a/lib/Net/DBus/Binding/Bus.pm
+++ b/lib/Net/DBus/Binding/Bus.pm
@@ -41,6 +41,13 @@ sub request_name {
$self->{connection}->dbus_bus_request_name($service_name);
}
+sub get_unique_name {
+ my $self = shift;
+
+ $self->{connection}->dbus_bus_get_unique_name;
+}
+
+
sub add_match {
my $self = shift;
my $rule = shift;
--
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