r30258 - 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 29 18:50:29 UTC 2009
Author: gregoa
Date: Thu Jan 29 18:50:26 2009
New Revision: 30258
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=30258
Log:
[svn-upgrade] Integrating new upstream version, libio-socket-ssl-perl (1.22)
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=30258&op=diff
==============================================================================
--- branches/upstream/libio-socket-ssl-perl/current/Changes (original)
+++ branches/upstream/libio-socket-ssl-perl/current/Changes Thu Jan 29 18:50:26 2009
@@ -1,3 +1,7 @@
+
+v1.22 2009.01.24
+- Net::SSLeay stores verify callbacks inside hash and never clears them, so
+ set verify callback to NULL in destroy of context
v1.21 2009.01.22
- auto verification of name in certificate created circular reference between
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=30258&op=diff
==============================================================================
--- branches/upstream/libio-socket-ssl-perl/current/SSL.pm (original)
+++ branches/upstream/libio-socket-ssl-perl/current/SSL.pm Thu Jan 29 18:50:26 2009
@@ -66,7 +66,7 @@
}) {
@ISA = qw(IO::Socket::INET);
}
- $VERSION = '1.21';
+ $VERSION = '1.22';
$GLOBAL_CONTEXT_ARGS = {};
#Make $DEBUG another name for $Net::SSLeay::trace
@@ -1425,6 +1425,7 @@
Net::SSLeay::CTX_set_verify($ctx, $verify_mode, $verify_callback);
$ctx_object = { context => $ctx };
+ $ctx_object->{has_verifycb} = 1 if $verify_callback;
DEBUG(3, "new ctx $ctx" );
$CTX_CREATED_IN_THIS_THREAD{$ctx} = 1;
@@ -1463,6 +1464,11 @@
DEBUG( 3,"free ctx $ctx open=".join( " ",keys %CTX_CREATED_IN_THIS_THREAD ));
if ( %CTX_CREATED_IN_THIS_THREAD and
delete $CTX_CREATED_IN_THIS_THREAD{$ctx} ) {
+ # remove any verify callback for this context
+ if ( $self->{has_verifycb}) {
+ DEBUG( 3,"free ctx $ctx callback" );
+ Net::SSLeay::CTX_set_verify($ctx, 0,undef);
+ }
DEBUG( 3,"OK free ctx $ctx" );
Net::SSLeay::CTX_free($ctx);
}
More information about the Pkg-perl-cvs-commits
mailing list