Don't try to call the inherited DESTROY destructor, since UNIVERSAL doesn't have one...

This commit is contained in:
ian%hixie.ch 2003-01-10 00:36:20 +00:00
Родитель 8254c89ed8
Коммит ba14de95c4
1 изменённых файлов: 3 добавлений и 3 удалений

Просмотреть файл

@ -465,7 +465,7 @@ sub handle {
sub DESTROY {
my $self = shift;
return $self->SUPER::DESTROY(@_) if $self->{'resolved'};
return if $self->{'resolved'};
my $parts = 0x00;
$parts |= 0x01 if scalar(@{$self->{'handlers'}});
$parts |= 0x02 if defined($self->{'except'});
@ -497,7 +497,7 @@ sub create {
sub DESTROY {
my $self = shift;
return $self->SUPER::DESTROY(@_) if $self->{'resolved'};
return if $self->{'resolved'};
warn "Incorrectly used \"with\" operator at $self->{'filename'} line $self->{'line'}\n"; # XXX can't raise an exception in a destructor
}
@ -515,7 +515,7 @@ sub create {
sub DESTROY {
my $self = shift;
return $self->SUPER::DESTROY(@_) if $self->{'resolved'};
return if $self->{'resolved'};
warn "Incorrectly used \"fallthrough\" function at $self->{'filename'} line $self->{'line'}\n"; # XXX can't raise an exception in a destructor
}