Lines 111-126
Link Here
|
111 |
$logger->info("Data source '$source' is a remote Zotero RDF/XML data source - fetching ..."); |
111 |
$logger->info("Data source '$source' is a remote Zotero RDF/XML data source - fetching ..."); |
112 |
if ($1) { # HTTPS |
112 |
if ($1) { # HTTPS |
113 |
# use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues |
113 |
# use IO::Socket::SSL qw(debug4); # useful for debugging SSL issues |
114 |
# We have to explicitly set the cert path because otherwise the https module |
|
|
115 |
# can't find the .pem when PAR::Packer'ed |
116 |
if (not exists($ENV{PERL_LWP_SSL_CA_FILE}) and |
117 |
not defined(Biber::Config->getoption('ssl-nointernalca'))) { |
118 |
require Mozilla::CA; # Have to explicitly require this here to get it into %INC below |
119 |
# we assume that the default CA file is in .../Mozilla/CA/cacert.pem |
120 |
(my $vol, my $dir, undef) = File::Spec->splitpath( $INC{"Mozilla/CA.pm"} ); |
121 |
$dir =~ s/\/$//; # splitpath sometimes leaves a trailing '/' |
122 |
$ENV{PERL_LWP_SSL_CA_FILE} = File::Spec->catpath($vol, "$dir/CA", 'cacert.pem'); |
123 |
} |
124 |
if (defined(Biber::Config->getoption('ssl-noverify-host'))) { |
114 |
if (defined(Biber::Config->getoption('ssl-noverify-host'))) { |
125 |
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0; |
115 |
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0; |
126 |
} |
116 |
} |