[libnet-smtp-tls-perl] 01/07: Add patch to fix syntax problem in IO::Socket::SSL call.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libnet-smtp-tls-perl.

commit a84e091410488b7f07dd6935b6077401155f682a
Author: gregor herrmann <gregoa at debian.org>
Date:   Thu Jan 26 19:22:09 2017 +0100

    Add patch to fix syntax problem in IO::Socket::SSL call.
    
    Closes: #728660
---
 debian/patches/io-socket-ssl.patch | 22 ++++++++++++++++++++++
 debian/patches/series              |  1 +
 2 files changed, 23 insertions(+)

diff --git a/debian/patches/io-socket-ssl.patch b/debian/patches/io-socket-ssl.patch
new file mode 100644
index 0000000..20e864d
--- /dev/null
+++ b/debian/patches/io-socket-ssl.patch
@@ -0,0 +1,22 @@
+Description: Fix syntax problem in IO::Socket::SSL call.
+ The usage of SSL_version was wrong, and IO::Socket::SSL uses sensible defaults anyway.
+ Cf. also https://rt.cpan.org/Public/Bug/Display.html?id=77401 .
+Origin: vendor
+Bug: https://rt.cpan.org/Ticket/Display.html?id=85637
+Bug-Debian: https://bugs.debian.org/728660
+Author: Steffen Ullrich <sullr at cpan.org>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2017-01-26
+
+--- a/lib/Net/SMTP/TLS.pm
++++ b/lib/Net/SMTP/TLS.pm
+@@ -178,8 +178,7 @@
+ 	if(not $num == 220){
+ 		croak "Invalid response for STARTTLS: $num $txt\n";
+ 	}
+-	if(not IO::Socket::SSL::socket_to_SSL($me->{sock},
+-		SSL_version	=>	"SSLv3 TLSv1")){
++	if(not IO::Socket::SSL::socket_to_SSL($me->{sock})){
+ 			croak "Couldn't start TLS: ".IO::Socket::SSL::errstr."\n";
+ 	}
+ 	$me->hello();
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..cbf31c5
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+io-socket-ssl.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-smtp-tls-perl.git