| Subject: | error trapping in get_https2 |
sub routine get_https2 sets $errors and returns undef in multiple places.
The return from get_https2 never gets checked for undef.
Suggestion:
return (\@result); in get_https2
my $xmlRef = &get_https2($host, $port, $path,{'cafile' =>
$self->{'CAFile'}, 'capath' => $self->{'CAPath'}});
if( ! defined ( $xmlRef ) )
{
warn $errors;
return undef;
}
my( @xml ) = @$xmlRef;