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 c7f828f18927dd474ab9e5b933b17102ea046014 Author: Daniel P. Berrange <[email protected]> Date: Mon Sep 12 19:41:06 2005 +0000 Work around introspection data for bus which is missing signals --- lib/Net/DBus/Binding/Introspector.pm | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/lib/Net/DBus/Binding/Introspector.pm b/lib/Net/DBus/Binding/Introspector.pm index 4449aea..434f77e 100644 --- a/lib/Net/DBus/Binding/Introspector.pm +++ b/lib/Net/DBus/Binding/Introspector.pm @@ -99,6 +99,21 @@ sub new { $self->{props}->{$prop} = $interface->{props}->{$prop}; } } + + # XXX its a bug that these aren't included in the introspection + # data the bus generates + if ($self->{object_path} eq "/org/freedesktop/DBus") { + if (!$self->has_signal("NameOwnerChanged")) { + $self->add_signal("NameOwnerChanged", ["string","string","string"], "org.freedesktop.DBus"); + } + if (!$self->has_signal("NameLost")) { + $self->add_signal("NameLost", ["string"], "org.freedesktop.DBus"); + } + if (!$self->has_signal("NameAcquired")) { + $self->add_signal("NameAcquired", ["string"], "org.freedesktop.DBus"); + } + } + return $self; } @@ -628,7 +643,7 @@ sub decode { my $name = shift; my $direction = shift; my @args = @_; - + die "no introspection data for such $name ($type)" unless exists $self->{$type}->{$name}; my @types = $type eq "signals" ? -- 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 [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
