projects / packages / perl-Net-SMTP-TLS.git / blame
| Commit | Line | Data |
|---|---|---|
| f9ec01ee AM |
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(); |