From: short <>
Date: Fri, 13 May 2005 09:00:06 +0000 (+0000)
Subject: Filter-out "CVS": from .cvsignore
X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=commitdiff_plain;h=50a7f52167aadf7755a2726cf3d1be1aabe6f15d

Filter-out "CVS": from .cvsignore
 - Prevent destructiveness of: cvsignoresallrm
---

diff --git a/bin/kernel/kernelcvsignore b/bin/kernel/kernelcvsignore
index c070811..cc4fcd8 100755
--- 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));
 	}
 }