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

["Денис Смирнов" <mithraen@freesource.info>]

[-- Attachment #1: Type: text/plain, Size: 659 bytes --]

Разбираясь почему 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>;

-- 
С уважением, Денис

http://mithraen.ru/

[-- Attachment #2: Digital signature --]
[-- Type: application/pgp-signature, Size: 181 bytes --]