Issue with Perl5 paths

This commit is contained in:
José González 2021-05-12 09:35:35 +02:00
parent dc15f736b5
commit 90573feb1b

View File

@ -80,8 +80,8 @@ sub run ($) {
# Use Goliat with CURL # Use Goliat with CURL
if ($pa_config->{'web_engine'} eq 'curl') { if ($pa_config->{'web_engine'} eq 'curl') {
require Goliat::GoliatCURL; require PandoraFMS::Goliat::GoliatCURL;
Goliat::GoliatCURL->import; PandoraFMS::Goliat::GoliatCURL->import;
# Check for CURL binary # Check for CURL binary
if (system ("curl -V >$DEVNULL 2>&1") >> 8 != 0) { if (system ("curl -V >$DEVNULL 2>&1") >> 8 != 0) {
@ -98,8 +98,8 @@ sub run ($) {
} }
# Use LWP by default # Use LWP by default
else { else {
require Goliat::GoliatLWP; require PandoraFMS::Goliat::GoliatLWP;
Goliat::GoliatLWP->import; PandoraFMS::Goliat::GoliatLWP->import;
if (! LWP::UserAgent->can('ssl_opts')) { if (! LWP::UserAgent->can('ssl_opts')) {
logger($pa_config, "LWP version $LWP::VERSION does not support SSL. Make sure version 6.0 or higher is installed.", 1); logger($pa_config, "LWP version $LWP::VERSION does not support SSL. Make sure version 6.0 or higher is installed.", 1);