А попробуйте это <br>my $o2=new Screamer;<br>
$o1-&gt;{o2}=$o2;<br><br>Заменить на <br>
my $o2=new Screamer;<br>
$o2-&gt;{o1}=$o1;<br><br><br><div class="gmail_quote">21 мая 2008 г. 13:44 пользователь Ivan B. Serezhkin &lt;<a href="mailto:ivan@serezhkin.com">ivan@serezhkin.com</a>&gt; написал:<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>
&gt; Здраствуйте<br>
&gt; Проблема в следущем есть обьект A который содержит ссылку на обьект B.<br>
&gt; В деструкторе обьекта A используется ссылка на обьект B - всё хорошо<br>
&gt; работает пока дело не доходит до глобального десктруктора. Глобальный<br>
&gt; деструктор уничожает обьект B раньше обьекта A и естественно &nbsp;обьект A<br>
&gt; не может выполнить всех необхдимых действий в своём деструкторе.<br>
&gt; Что народ может посоветовать в таком случае?<br>
</div></div>писать как то так:<br>
<br>
my $o1=new Screamer;<br>
my $o2=new Screamer;<br>
$o1-&gt;{o2}=$o2;<br>
print &quot;I hate this world\n&quot;;&nbsp;</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>
 &nbsp; &nbsp;my $self=bless {};<br>
 &nbsp; &nbsp;print &quot;Created $self\n&quot;;<br>
 &nbsp; &nbsp;return $self;<br>
}<br>
<br>
sub DESTROY {<br>
 &nbsp; &nbsp;my $self=shift;<br>
 &nbsp; &nbsp;print &quot;Destroyed $self\n&quot;;<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>