Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-04-02 20:42:49 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
ian%hixie.ch 2003-01-10 00:36:20 +00:00
parent 849440045e
commit a23f79534c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
webtools/PLIF/PLIF/Exception.pm
View File

@ -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
}