foreach my $err (@$errs) {
my ($file, $message) = %$err;
logm 'info', "problem deleting: $file: $message";
}
die "$dir: problem deleting file(s)\n";
foreach my $err (@$errs) {
my ($file, $message) = %$err;
logm 'info', "problem deleting: $file: $message";
}
die "$dir: problem deleting file(s)\n";