[sisyphus] perl-IO-Socket-SSL не работает

[Vladimir Lettiev]

On Thu, Jul 24, 2014 at 10:02:40PM +0400, Денис Смирнов wrote:
> Разбираясь почему gear-cronbuild отказывается обновлять libsodium, выяснил
> что у нас сломан IO::Socket::SSL.
> 
> Ниже код, демонстрирующий багу. tcpdump запущенный рядом показывает, что
> этот код в реальности посылает данные по открытому каналу, без всякого SSL.
> 
> Как дальше локализовать ошибку?
> 
> #!/usr/bin/perl
> use strict;
> use IO::Socket::SSL;
> 
> my $cl = IO::Socket::SSL->new(
>     PeerHost => 'download.libsodium.org',
>     PeerPort => 'https',
> ) or die "$!";
> 			
> print $cl "GET /libsodium/releases/ HTTP/1.1\r\n";
> print $cl "Host: download.libsodium.org\r\n";
> print $cl "\r\n";
> print <$cl>;

Проблема в модуле IO::Socket::IP

    https://rt.cpan.org/Public/Bug/Display.html?id=97050

Надо обновить его до версии 0.31 (cc: viy@)

-- 
Vladimir Lettiev aka crux ✉ theCrux на gmail.com