r29062 - in /trunk/libio-socket-ssl-perl: Changes SSL.pm debian/changelog

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Thu Jan 1 19:20:10 UTC 2009


Author: gregoa
Date: Thu Jan  1 19:20:07 2009
New Revision: 29062

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29062
Log:
New upstream release.

Modified:
    trunk/libio-socket-ssl-perl/Changes
    trunk/libio-socket-ssl-perl/SSL.pm
    trunk/libio-socket-ssl-perl/debian/changelog

Modified: trunk/libio-socket-ssl-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/Changes?rev=29062&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/Changes (original)
+++ trunk/libio-socket-ssl-perl/Changes Thu Jan  1 19:20:07 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: trunk/libio-socket-ssl-perl/SSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/SSL.pm?rev=29062&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/SSL.pm (original)
+++ trunk/libio-socket-ssl-perl/SSL.pm Thu Jan  1 19:20:07 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" );

Modified: trunk/libio-socket-ssl-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-socket-ssl-perl/debian/changelog?rev=29062&op=diff
==============================================================================
--- trunk/libio-socket-ssl-perl/debian/changelog (original)
+++ trunk/libio-socket-ssl-perl/debian/changelog Thu Jan  1 19:20:07 2009
@@ -1,3 +1,9 @@
+libio-socket-ssl-perl (1.19-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Thu, 01 Jan 2009 20:19:33 +0100
+
 libio-socket-ssl-perl (1.18-1) unstable; urgency=low
 
   [ gregor herrmann ]




More information about the Pkg-perl-cvs-commits mailing list