Обнаружил, что если убрать ключ -w (который включает предупреждения глобально) и поставить use warnings (или use common::sense вместо первых трех директив), то предупреждение больше не появляется. Может баг в AnyEvent::Handle?
2013/7/29 TheAthlete <[email protected]> > Здравствуйте! > При запуске вот такого кода: > > #!/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 > [email protected] | http://moscow.pm.org > -- Best regards, Ilya Chesnokov
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
