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 <d...@berrange.com>
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
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to