view release on metacpan or  search on metacpan

lib/App/Pfind.pm  view on Meta::CPAN

  # make_path sets $! on success (as it test the existance of the file).
  undef $!;
  $! = join(', ', @$err) if @$err;
}
sub rmdir(_;@) {
  for my $d (@_) {
    CORE::rmdir($d);
  }
}
# A safe 'rm' that does not recurse into directories.
sub rm(_;@) {
  for my $f (@_) {
    if (-d $f) {
      CORE::rmdir($f);
      return if $!;
    } else {
      my $err;
      remove_tree($f, { error => \$err });
      undef $!;
      $! = join(', ', @$err) if @$err;
    }