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 baa633784c2ccc82cdbcebd022b75e36210447d8 Author: Daniel P. Berrange <d...@berrange.com> Date: Mon Sep 26 20:12:30 2005 +0000 Use 60 sec timeout if service isnt online when calling introspect. Remove debug print out --- lib/Net/DBus/RemoteObject.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lib/Net/DBus/RemoteObject.pm b/lib/Net/DBus/RemoteObject.pm index 898d862..488493a 100644 --- a/lib/Net/DBus/RemoteObject.pm +++ b/lib/Net/DBus/RemoteObject.pm @@ -129,7 +129,7 @@ sub get_object_path { sub _introspector { my $self = shift; my $timeout = shift; - $timeout = 5 unless defined $timeout; + $timeout = $self->get_service->is_online ? 5 : 60 unless defined $timeout; unless ($self->{introspected}) { my $call = Net::DBus::Binding::Message::MethodCall-> @@ -239,7 +239,7 @@ sub AUTOLOAD { my $sub = $AUTOLOAD; (my $name = $AUTOLOAD) =~ s/.*:://; - + # Use a long timeout if the service is not online, # because some services take a long time to startup. # With a 5 second timeout, we'd time out before the @@ -300,8 +300,6 @@ sub _call_method { my $interface = shift; my $timeout = shift; - warn "Do $name $interface $timeout\n"; - my $call = Net::DBus::Binding::Message::MethodCall-> new(service_name => $self->{service}->get_service_name(), object_path => $self->{object_path}, -- 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