<div dir="ltr"><div><div><div><div><div><div><div>Здравствуй, любимое сообщество!<br></div>Подскажи мне, пожалуйста, что мне надо почитать/посмотреть, чтобы понять следующую вещь.<br><br></div>Вот есть у меня mod_perl с handlers<br></div>Есть у меня там функция такая, которая дальше вызывается в обработчиках, она не вызывается при запуске, а только когда пришел первый запрос:<br><br></div>package MyLib::Handler;<br>use MyLib::Obj;<br>sub obj {<br></div>  our $obj;<br></div><div>  warn 'obj ', $obj, $obj->{ pid } if $obj;<br></div>  return $obj if $obj;<br></div>  $obj = MyLib::Obj->new( pid => $$);<br><div><div><div><div>}<br><br></div><div>Вот этот Obj;<br></div><div>package MyLib::Obj;<br>sub new {<br>    my $package = shift;<br>    my $opt = {@_};<br>    my $self = {};<br>    $self->{ pid } = $opt->{ pid };<br>    return bless($self, $package);<br>}<br><br></div><div>pid сюда добавлен для дебага, чтобы в логах было видно, кто создал obj<br></div><div><br>и обвес на warn<br>BEGIN {<br>        $SIG{'__WARN__'} = sub {<br>        warn $$.' --> '.$_[0] ;<br>        };<br>}<br><br></div><div>И получается, что в логах выглядит вот так<br><br>16373 --> obj MyLib::Obj=HASH(0x80461c420) 16373<br>16372 --> obj MyLib::Obj=HASH(0x80461c420) 16372<br><br></div>Почему тут одинаковые адреса?<br></div><div>Сообщество, помоги!<br></div></div></div></div>