https://github.com/dap/XML-Stream/pull/26 https://github.com/dap/XML-Stream/issues/19 https://github.com/dap/XML-Stream/issues/14 --- a/lib/XML/Stream.pm +++ b/lib/XML/Stream.pm @@ -205,8 +205,7 @@ XML::Stream::Tools::setup_debug($self, %args); my $hostname = hostname(); - my $address = gethostbyname($hostname) || - die("Cannot resolve $hostname: $!"); + my $address = gethostbyname($hostname) || ""; my $fullname = gethostbyaddr($address,AF_INET) || $hostname; $self->debug(1,"new: hostname = ($fullname)"); @@ -220,7 +219,7 @@ $self->{SIDS}->{default}->{ssl} = 0; $self->{SIDS}->{default}->{_tls} = 0; $self->{SIDS}->{default}->{ssl_verify} = 0x01; # verify peer by default - $self->{SIDS}->{default}->{ssl_ca_path} = ''; + $self->{SIDS}->{default}->{ssl_ca_path} = '/etc/ssl/certs'; $self->{SIDS}->{default}->{namespace} = ""; $self->{SIDS}->{default}->{myhostname} = $fullname; $self->{SIDS}->{default}->{derivedhostname} = $fullname; @@ -2164,7 +2163,7 @@ $response = $self->{SIDS}->{$sid}->{sasl}->{client}->client_step($challenge); } - my $response64 = MIME::Base64::encode_base64($response,""); + my $response64 = defined($response) ? MIME::Base64::encode_base64($response,"") : ""; $self->SASLResponse($sid,$response64); }