diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2015-03-10 08:30:41 +0000 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2015-03-10 08:30:41 +0000 |
| commit | fb8306460b9097c6f19d283a14c558aed220ed9c (patch) | |
| tree | 7eee240d7f2451060d782177004e888f7fac3dbc /lib/Net/NNTP.pm | |
| parent | 67f0921e35c0aabbbf09fe48069a12b137e79c7f (diff) | |
| download | perl-libnet-fb8306460b9097c6f19d283a14c558aed220ed9c.tar.gz | |
Convert tabs to spaces
Diffstat (limited to 'lib/Net/NNTP.pm')
| -rw-r--r-- | lib/Net/NNTP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Net/NNTP.pm b/lib/Net/NNTP.pm index a1409fd..09e6e35 100644 --- a/lib/Net/NNTP.pm +++ b/lib/Net/NNTP.pm @@ -756,9 +756,9 @@ sub DESTROY { my ($class,$nntp,%arg) = @_; delete @arg{ grep { !m{^SSL_} } keys %arg }; ( $arg{SSL_verifycn_name} ||= $nntp->host ) - =~s{(?<!:):[\w()]+$}{}; # strip port + =~s{(?<!:):[\w()]+$}{}; # strip port $arg{SSL_hostname} = $arg{SSL_verifycn_name} - if ! defined $arg{SSL_hostname} && $class->can_client_sni; + if ! defined $arg{SSL_hostname} && $class->can_client_sni; my $ok = $class->SUPER::start_SSL($nntp, SSL_verifycn_scheme => 'nntp', %arg |