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