[libnet-dbus-perl] 118/335: Use 60 sec timeout if service isnt online when calling introspect. Remove debug print out
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:35 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 baa633784c2ccc82cdbcebd022b75e36210447d8
Author: Daniel P. Berrange <dan at 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
More information about the Pkg-perl-cvs-commits
mailing list