note
Sifmole
A thought:
<code>
sub rmtree {
trashIt(@_, "rmtree");
}
sub unlink {
trashIt(@_, "unlink");
}
sub trashIt {
my ($o, $file, $cmd) = @_;
eval { $cmd $file } ;
if ($@) {
$o->LOG('error', "$file: $@");
}
}
</code>
And I am sure you could do something with closures....
217236
217236