diff options
| author | Steffen Ullrich <Steffen_Ullrich@genua.de> | 2014-11-29 17:13:58 +0100 |
|---|---|---|
| committer | Steffen Ullrich <Steffen_Ullrich@genua.de> | 2014-11-29 17:13:58 +0100 |
| commit | f2756a6b81ebfadbd1ce318879c20b6519207c49 (patch) | |
| tree | 27c65c930752a6111d42056b08ade14b61996988 /lib/Net/NNTP.pm | |
| parent | 2b61b8160f3faed52b1933777bdd98648fb87cb5 (diff) | |
| download | perl-libnet-f2756a6b81ebfadbd1ce318879c20b6519207c49.tar.gz | |
SSL support: use SNI only if supported by IO::Socket::SSL (i.e. openssl version>=1)
Diffstat (limited to 'lib/Net/NNTP.pm')
| -rw-r--r-- | lib/Net/NNTP.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Net/NNTP.pm b/lib/Net/NNTP.pm index 7cc9936..ef838d2 100644 --- a/lib/Net/NNTP.pm +++ b/lib/Net/NNTP.pm @@ -758,7 +758,7 @@ sub DESTROY { ( $arg{SSL_verifycn_name} ||= $nntp->host ) =~s{(?<!:):[\w()]+$}{}; # strip port $arg{SSL_hostname} = $arg{SSL_verifycn_name} - if ! defined $arg{SSL_hostname}; + if ! defined $arg{SSL_hostname} && $class->can_client_sni; my $ok = $class->SUPER::start_SSL($nntp, SSL_verifycn_scheme => 'nntp', %arg |