328/376: Provide some fallback defaults for the CA bundle

[Ludovic Court�s]

civodul pushed a commit to tag 1.8
in repository guix.

commit 5510d21193e84067230beb5f755e899180f963a2
Author: Eelco Dolstra <eelco.dols...@logicblox.com>
Date:   Tue Dec 9 13:13:05 2014 +0100

    Provide some fallback defaults for the CA bundle
---
 scripts/download-from-binary-cache.pl.in |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/scripts/download-from-binary-cache.pl.in 
b/scripts/download-from-binary-cache.pl.in
index fe0195e..db030c1 100644
--- a/scripts/download-from-binary-cache.pl.in
+++ b/scripts/download-from-binary-cache.pl.in
@@ -42,6 +42,8 @@ my $curlIdCount = 1;
 my %requests;
 my %scheduled;
 my $caBundle = $ENV{"SSL_CERT_FILE"} // $ENV{"CURL_CA_BUNDLE"} // 
$ENV{"OPENSSL_X509_CERT_FILE"};
+$caBundle = "/etc/ssl/certs/ca-bundle.crt" if !$caBundle && -f 
"/etc/ssl/certs/ca-bundle.crt";
+$caBundle = "/etc/ssl/certs/ca-certificates.crt" if !$caBundle && -f 
"/etc/ssl/certs/ca-certificates.crt";
 
 my $userName = getpwuid($<) || $ENV{"USER"} or die "cannot figure out user 
name";