logm 'warning', "housekeeping: $dir: problems with".
" deletion prevent cleanup:";
foreach my $err (@$errs) {
- logm 'info', "problem deleting: $err->[0]: $err->[1]";
+ my ($file, $message) = %$err;
+ logm 'info', "problem deleting: $file: $message";
}
}
}