155/376: Set a curl timeout on binary cache lookups

[Ludovic Court�s]

civodul pushed a commit to tag 1.8
in repository guix.

commit 163fdf292e5368e8102f34f246547ba992e5cab4
Author: Eelco Dolstra <eelco.dols...@logicblox.com>
Date:   Thu Aug 21 15:15:50 2014 +0200

    Set a curl timeout on binary cache lookups
---
 scripts/download-from-binary-cache.pl.in |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/scripts/download-from-binary-cache.pl.in 
b/scripts/download-from-binary-cache.pl.in
index b7eb72a..e09b051 100644
--- a/scripts/download-from-binary-cache.pl.in
+++ b/scripts/download-from-binary-cache.pl.in
@@ -68,6 +68,7 @@ sub addRequest {
     $curl->setopt(CURLOPT_NOBODY, 1) if $head;
     $curl->setopt(CURLOPT_FAILONERROR, 1);
     $curl->setopt(CURLOPT_CONNECTTIMEOUT, $curlConnectTimeout);
+    $curl->setopt(CURLOPT_TIMEOUT, 20 * 60);
 
     if ($activeRequests >= $maxParallelRequests) {
         $scheduled{$curlId} = 1;