[Moscow.pm] Как народ борится с глобальным деструктором

[Ivan B. Serezhkin]

Dmitry Nizovtsev wrote:
> А попробуйте это
> my $o2=new Screamer;
> $o1->{o2}=$o2;
>
> Заменить на
> my $o2=new Screamer;
> $o2->{o1}=$o1;
И, что было известно с самого начала, никаких граблей.
Перловый деструктор дёргается по строгим правилам и никогда не отходит 
от них.
Видимо кто то умный у вас ваши данные портит до того, как начинают 
вызыватся деструкторы.
Рекомендую написать деструктор этой вашей XXX::Storage и в нём вопить 
что её убили, и очень внимательно считать ссылки, тоесть не юзать её ещё 
гдето, а то она не сдестроится.
А ещё лучше :  grep Storage |egrep (undef|delete)

-- 
Ivan B. Serezhkin