[Moscow.pm] AnyEvent::HTTP и TLS

Mon, 29 Jul 2013 00:36:44 -0700 

Здравствуйте!
При запуске вот такого кода:

#!/usr/bin/perl -w
use strict;

use utf8;
use feature 'say';

use AnyEvent;
use EV;
use AnyEvent::HTTP;

my $cv = AnyEvent->condvar;

http_get 'https://metacpan.org/module/AnyEvent::HTTP', sub {
  my ($body, $hdr) = @_;

  if ($hdr->{Status} =~ /^2/) {
    say 'Yes';
  } else {
    say "error, $hdr->{Status} $hdr->{Reason}";
  }
  $cv->send;

};

$cv->recv;

выдается следующая ошибка:

Yes
(in cleanup) Can't call method "_put_session" on an undefined value at /usr/local/lib64/perl5/AnyEvent/Handle.pm line 2163 during global destruction. 

Подскажите пожайлуста, в чем может быть проблема?
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить