perl-AnyEvent/AnyEvent-7.13-ssl.patch
2016-11-25 08:58:44 +00:00

14 lines
605 B
Diff

Fix for CPAN RT#118584 from Mike McCauley (Net::SSLeay upstream)
--- lib/AnyEvent/Handle.pm
+++ lib/AnyEvent/Handle.pm
@@ -2224,7 +2224,7 @@ sub starttls {
# Net::SSLeay::CTX_set_mode ($ssl,
# (eval { local $SIG{__DIE__}; Net::SSLeay::MODE_ENABLE_PARTIAL_WRITE () } || 1)
# | (eval { local $SIG{__DIE__}; Net::SSLeay::MODE_ACCEPT_MOVING_WRITE_BUFFER () } || 2));
- Net::SSLeay::CTX_set_mode ($tls, 1|2);
+ Net::SSLeay::set_mode ($tls, 1|2);
$self->{_rbio} = Net::SSLeay::BIO_new (Net::SSLeay::BIO_s_mem ());
$self->{_wbio} = Net::SSLeay::BIO_new (Net::SSLeay::BIO_s_mem ());