r29060 - in /branches/upstream/libio-socket-ssl-perl/current: Changes SSL.pm
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Jan 1 19:19:04 UTC 2009
Author: gregoa
Date: Thu Jan 1 19:19:01 2009
New Revision: 29060
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29060
Log:
[svn-upgrade] Integrating new upstream version, libio-socket-ssl-perl (1.19)
Modified:
branches/upstream/libio-socket-ssl-perl/current/Changes
branches/upstream/libio-socket-ssl-perl/current/SSL.pm
Modified: branches/upstream/libio-socket-ssl-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-socket-ssl-perl/current/Changes?rev=29060&op=diff
==============================================================================
--- branches/upstream/libio-socket-ssl-perl/current/Changes (original)
+++ branches/upstream/libio-socket-ssl-perl/current/Changes Thu Jan 1 19:19:01 2009
@@ -1,3 +1,6 @@
+
+v1.19 2008.12.31
+- fix verfycn_name autodetection from PeerAddr/PeerHost
v1.18 2008.11.17
- fixed typo in argument: wildcars_in_cn -> wildcards_in_cn
Modified: branches/upstream/libio-socket-ssl-perl/current/SSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-socket-ssl-perl/current/SSL.pm?rev=29060&op=diff
==============================================================================
--- branches/upstream/libio-socket-ssl-perl/current/SSL.pm (original)
+++ branches/upstream/libio-socket-ssl-perl/current/SSL.pm Thu Jan 1 19:19:01 2009
@@ -66,7 +66,7 @@
}) {
@ISA = qw(IO::Socket::INET);
}
- $VERSION = '1.18';
+ $VERSION = '1.19';
$GLOBAL_CONTEXT_ARGS = {};
#Make $DEBUG another name for $Net::SSLeay::trace
@@ -258,8 +258,9 @@
my $arg_hash = ${*$self}{_SSL_arguments};
my $host = $arg_hash->{SSL_verifycn_name};
if (not defined($host)) {
- $host = ( $arg_hash->{PeerAddr} || $arg_hash->{PeerHost} );
- $host =~s{:\w+$}{} if ! $host;
+ if ( $host = $arg_hash->{PeerAddr} || $arg_hash->{PeerHost} ) {
+ $host =~s{:\w+$}{};
+ }
}
$host ||= ref($vcn_scheme) && $vcn_scheme->{callback} && 'unknown';
$host or return $self->error( "Cannot determine peer hostname for verification" );
More information about the Pkg-perl-cvs-commits
mailing list