А попробуйте это <br>my $o2=new Screamer;<br>
$o1->{o2}=$o2;<br><br>Заменить на <br>
my $o2=new Screamer;<br>
$o2->{o1}=$o1;<br><br><br><div class="gmail_quote">21 мая 2008 г. 13:44 пользователь Ivan B. Serezhkin <<a href="mailto:ivan@serezhkin.com">ivan@serezhkin.com</a>> написал:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div></div><div class="Wj3C7c">Dmitry Nizovtsev wrote:<br>
> Здраствуйте<br>
> Проблема в следущем есть обьект A который содержит ссылку на обьект B.<br>
> В деструкторе обьекта A используется ссылка на обьект B - всё хорошо<br>
> работает пока дело не доходит до глобального десктруктора. Глобальный<br>
> деструктор уничожает обьект B раньше обьекта A и естественно обьект A<br>
> не может выполнить всех необхдимых действий в своём деструкторе.<br>
> Что народ может посоветовать в таком случае?<br>
</div></div>писать как то так:<br>
<br>
my $o1=new Screamer;<br>
my $o2=new Screamer;<br>
$o1->{o2}=$o2;<br>
print "I hate this world\n"; </blockquote><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br>
<br>
package Screamer;<br>
sub new {<br>
my $self=bless {};<br>
print "Created $self\n";<br>
return $self;<br>
}<br>
<br>
sub DESTROY {<br>
my $self=shift;<br>
print "Destroyed $self\n";<br>
<div><div></div><div class="Wj3C7c">}<br>
<br>
--<br>
Ivan B. Serezhkin<br>
<br>
--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/moscow-pm" target="_blank">http://mail.pm.org/mailman/listinfo/moscow-pm</a></div></div></blockquote></div><br>