То что глобальный деструктор моральный урод это понятно(хотя его тоже можно понять ) но бороться то как то с ним нужно :)<br><br>Выглядит это примерно так:<br><br>my $query=XXX::Upload->new(<br> Storage => new XXX::Storage($cfg->get_val('storage_directory'),<br>
);<br><br><br>package XXX::Upload;<br>sub new{<br> my $class=shift;<br> my $self={<br> Storage => undef,<br> @_,<br> };<br> bless $self, $class;<br> return $self;<br>}<br><br>sub DESTROY{<br>
my $self=shift;<br>#На самом деле в конце скрипта $self->{Storage} уже undef<br> if($self->{Storage}){<br> $self->{Storage}->clean();<br> }<br>}<br><br><div class="gmail_quote">21 мая 2008 г. 13:35 пользователь 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>
Ибо хорошо воспитанный глобальный деструктор не будет трогать объект, на<br>
который у кого то есть ссылка.<br>
<br>
--<br>
Ivan B. Serezhkin<br>
<font color="#888888"><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></font></blockquote></div><br>