[Moscow.pm] AnyEvent::HTTP и TLS

[Ilya Chesnokov]

Обнаружил, что если убрать ключ -w (который включает предупреждения
глобально) и поставить use warnings (или use common::sense вместо первых
трех директив), то предупреждение больше не появляется. Может баг в
AnyEvent::Handle?


2013/7/29 TheAthlete <theathlet на yandex.ru>

> Здравствуйте!
> При запуске вот такого кода:
>
> #!/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<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
> moscow-pm на pm.org | http://moscow.pm.org
>



-- 
Best regards,
Ilya Chesnokov
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20130729/bda1fa8d/attachment.html>