Filter-out "CVS": from .cvsignore

 - Prevent destructiveness of: cvsignoresallrm

diff --git a/bin/kernel/kernelcvsignore b/bin/kernel/kernelcvsignore
index c070811..cc4fcd8 100755 (executable)
--- a/bin/kernel/kernelcvsignore
+++ b/bin/kernel/kernelcvsignore
@@ -31,6 +31,6 @@ my @cleanfiles=@My::KernelIgnoreList::list;
 for my $cvsdir (@ARGV ? @ARGV : ".") {
        for my $dir (AutoGen::_cvsdirs($cvsdir)) {
                my @cleanfilesfordir=AutoGen::_cleanfilesfordir $dir,@cleanfiles;
-               AutoGen::_writefile $dir."/.cvsignore",map("$_\n",@cleanfilesfordir);
+               AutoGen::_writefile $dir."/.cvsignore",map("$_\n",grep(!/^CVS$/,@cleanfilesfordir));
        }
 }