<div dir="ltr">Обнаружил, что если убрать ключ -w (который включает предупреждения глобально) и поставить use warnings (или use common::sense вместо первых трех директив), то предупреждение больше не появляется. Может баг в AnyEvent::Handle?</div>
<div class="gmail_extra"><br><br><div class="gmail_quote">2013/7/29 TheAthlete <span dir="ltr"><<a href="mailto:theathlet@yandex.ru" target="_blank">theathlet@yandex.ru</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Здравствуйте!<br>
При запуске вот такого кода:<br>
<br>
#!/usr/bin/perl -w<br>
use strict;<br>
<br>
use utf8;<br>
use feature 'say';<br>
<br>
use AnyEvent;<br>
use EV;<br>
use AnyEvent::HTTP;<br>
<br>
my $cv = AnyEvent->condvar;<br>
<br>
http_get '<a href="https://metacpan.org/module/AnyEvent::HTTP" target="_blank">https://metacpan.org/module/<u></u>AnyEvent::HTTP</a>', sub {<br>
  my ($body, $hdr) = @_;<br>
<br>
  if ($hdr->{Status} =~ /^2/) {<br>
    say 'Yes';<br>
  } else {<br>
    say "error, $hdr->{Status} $hdr->{Reason}";<br>
  }<br>
  $cv->send;<br>
<br>
};<br>
<br>
$cv->recv;<br>
<br>
выдается следующая ошибка:<br>
<br>
Yes<br>
        (in cleanup) Can't call method "_put_session" on an undefined value at /usr/local/lib64/perl5/<u></u>AnyEvent/Handle.pm line 2163 during global destruction.<br>
<br>
Подскажите пожайлуста, в чем может быть проблема?<span class="HOEnZb"><font color="#888888"><br>
-- <br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</font></span></blockquote></div><br><br clear="all"><div><br></div>-- <br>Best regards,<br>Ilya Chesnokov
</div>