"_remove" is now recursive!

diff --git a/bin/cvsutil b/bin/cvsutil
index 8457ee4..0ebe138 100755 (executable)
--- a/bin/cvsutil
+++ b/bin/cvsutil
@@ -16,6 +16,7 @@ use warnings;
 use Getopt::Long;
 use Cwd qw(chdir fastgetcwd);
 use Errno qw(ENOENT);
+use File::Remove qw(remove);
 
 use constant ENTRIES  =>"CVS/Entries";
 use constant CVSIGNORE=>".cvsignore";
@@ -203,7 +204,8 @@ sub localactionrm
 {
 my($filename)=@_;
 
-       if (!unlink $filename) {
+       # '\1' for '-r':
+       if (!remove \1,$filename) {
                mayfatal "File \"$_\" cannot be removed" if !$!{ENOENT};
                }
 }