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

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

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

[-- 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 --]

Re: [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