find(\&edits, $dir);

sub edits {
  if ($should_prune)
    {
    $File::Find::prune = 1
    return;
    }
    
  push @$cont, $File::Find::name, stat($File::Find::name) 
    if (!($File::Find::name =~ /.snapshot/));
  }