--cut--
> sub destroy_self {
>
> my $self = shift;
> $self = undef;
>
> }
--cut--
The destroy method must be named DESTROY ( case-sensitive )
So you would have to do:
sub DESTROY {
my $self = shift;
undef $self;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
