several bug fixes

This commit is contained in:
JT Smith 2005-02-22 02:05:55 +00:00
parent 22d3df0749
commit decab22c2f
9 changed files with 352 additions and 24 deletions

View file

@ -444,7 +444,9 @@ Completely remove an asset from existence.
sub DESTROY {
my $self = shift;
$self->{_parent}->DESTROY if (exists $self->{_parent});
# something bad happens when the following is enabled, not sure why
# must check this out later
#$self->{_parent}->DESTROY if (exists $self->{_parent});
$self->{_firstChild}->DESTROY if (exists $self->{_firstChild});
$self->{_lastChild}->DESTROY if (exists $self->{_lastChild});
$self = undef;