mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-04-15 08:16:42 +02:00
b26f5cf568
https://metacpan.org/release/XML-Stream/ XML stream support library for XMPP-like protocols
34 lines
1.3 KiB
Diff
34 lines
1.3 KiB
Diff
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);
|
|
}
|
|
|