git://git.jankratochvil.net
/
nethome.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
"_remove" is now recursive!
[nethome.git]
/
bin
/
cvsutil
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 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";
use constant ENTRIES =>"CVS/Entries";
use constant CVSIGNORE=>".cvsignore";
@@
-203,7
+204,8
@@
sub localactionrm
{
my($filename)=@_;
{
my($filename)=@_;
- if (!unlink $filename) {
+ # '\1' for '-r':
+ if (!remove \1,$filename) {
mayfatal "File \"$_\" cannot be removed" if !$!{ENOENT};
}
}
mayfatal "File \"$_\" cannot be removed" if !$!{ENOENT};
}
}