io-socket-ssl.patch

   1 Description: Fix syntax problem in IO::Socket::SSL call.
   2  The usage of SSL_version was wrong, and IO::Socket::SSL uses sensible defaults anyway.
   3  Cf. also https://rt.cpan.org/Public/Bug/Display.html?id=77401 .
   4 Origin: vendor
   5 Bug: https://rt.cpan.org/Ticket/Display.html?id=85637
   6 Bug-Debian: https://bugs.debian.org/728660
   7 Author: Steffen Ullrich <sullr@cpan.org>
   8 Reviewed-by: gregor herrmann <gregoa@debian.org>
   9 Last-Update: 2017-01-26
  10
  11 --- a/lib/Net/SMTP/TLS.pm
  12 +++ b/lib/Net/SMTP/TLS.pm
  13 @@ -178,8 +178,7 @@
  14         if(not $num == 220){
  15                 croak "Invalid response for STARTTLS: $num $txt\n";
  16         }
  17 -       if(not IO::Socket::SSL::socket_to_SSL($me->{sock},
  18 -               SSL_version     =>      "SSLv3 TLSv1")){
  19 +       if(not IO::Socket::SSL::socket_to_SSL($me->{sock})){
  20                         croak "Couldn't start TLS: ".IO::Socket::SSL::errstr."\n";
  21         }
  22         $me->hello();