From bda7e1543b5b52c79cd6a0fe76e534d3159ccc44 Mon Sep 17 00:00:00 2001
From: Michael Schroeder <mls@suse.de>
Date: Tue, 3 May 2016 11:45:08 +0200
Subject: [PATCH] [backend] add $logtimeout feature, just throw "rpc timeout"
 on timeout again

---
 src/backend/BSRPC.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/backend/BSRPC.pm b/src/backend/BSRPC.pm
index d733f491bbd..dc035e8f965 100644
--- a/src/backend/BSRPC.pm
+++ b/src/backend/BSRPC.pm
@@ -34,6 +34,7 @@ use strict;
 
 our $useragent = 'BSRPC 0.9.1';
 our $noproxy;
+our $logtimeout;
 
 my %hostlookupcache;
 my %cookiestore;	# our session store to keep iChain fast
@@ -205,7 +206,11 @@ sub rpc {
     my %paramcopy = %$param;
     my $timeout = delete $paramcopy{'timeout'};
     my $ans;
-    local $SIG{'ALRM'} = sub {alarm(0); die("rpc timeout($timeout sec) uri: '$param->{uri}'\n");};
+    local $SIG{'ALRM'} = sub {
+      alarm(0);
+      print "rpc timeout($timeout sec), uri: '$param->{uri}'\n" if $logtimeout;
+      die("rpc timeout\n");
+    };
     eval {
       eval {
         alarm($timeout);