Re^4: Carping in DESTROY.

[eff_i_g]

Actually, my eval try was in erorr. This is giving me what I want:

sub DESTROY {
    my $self = shift;
    eval { store $self, DATA_FILE };
    die $@ if $@;
}

I partially understand this. This is what Storable is doing:

...
sub logcroak {
    Carp::croak(@_);
}
...
open(FILE, ">$file") || logcroak "can't create $file: $!";
...

I'm still a little confused why I have to capture the croak and then die, as opposed to letting it croak.

[Anonymous Monk]

croak does something with caller(). DESTROY doesn't have a caller() (that croak recognises). If you do a sub or eval that does provide a caller() that croak recognises and so does the right thing.

[eff_i_g]

Ah ha! Thank you very much!