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

[Денис Смирнов]

Разбираясь почему 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/
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : отсутствует
Тип     : application/pgp-signature
Размер  : 181 байтов
Описание: Digital signature
Url     : <http://lists.altlinux.org/pipermail/sisyphus/attachments/20140724/cde7d907/attachment.bin>