X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=bin%2Fkernel%2Fkernelcvsignore;h=cc4fcd8009bc605e0023b530a1fd916960cfb017;hb=9941dd67625f104aeb2954ff1942bc7b1b0df549;hp=1aefa550462f84798b9c5909c57b27a7b8737a91;hpb=b20b8f900d32752b61b714759cec50fe76c411c5;p=nethome.git

diff --git a/bin/kernel/kernelcvsignore b/bin/kernel/kernelcvsignore
index 1aefa55..cc4fcd8 100755
--- a/bin/kernel/kernelcvsignore
+++ b/bin/kernel/kernelcvsignore
@@ -13,6 +13,7 @@ BEGIN {
 	my $macros_dir_default=$ENV{"HOME"}."/src/macros";
 	unshift @INC,$_ for $ENV{$macros_env}||$macros_dir_default;
 	eval "use AutoGen;1;" or die <<"HERE";
+$@
 Missing "Autogen.pm". Please download the directory 'macros':
 	cvs -d :pserver:pserver:@{[ '@' ]}cvs.jankratochvil.net:/cvs checkout macros
 and place it to '$macros_dir_default' or point \$ENV{"$macros_env"} variable there.
@@ -30,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));
 	}
 }