+#! /usr/bin/perl
+#
+# $Id$
+#
+# Generate .cvsignore files in the specified (or current) Linux kernel directory tree.
+
+
+use strict;
+use warnings;
+
+BEGIN {
+ my $macros_env="LACE_MACROS_DIR";
+ 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.
+HERE
+}
+
+use File::Basename; # &basename,&dirname
+
+
+require "".dirname($0)."/My-KernelIgnoreList.pm";
+# Prevent: Name ... used only once: possible typo
+1 if @My::KernelIgnoreList::list;
+my @cleanfiles=@My::KernelIgnoreList::list;
+
+for my $cvsdir (@ARGV||".") {
+ for my $dir (AutoGen::_cvsdirs($cvsdir)) {
+ my @cleanfilesfordir=AutoGen::_cleanfilesfordir $dir,@cleanfiles;
+ AutoGen::_writefile $dir."/.cvsignore",map("$_\n",@cleanfilesfordir);
+ }
+}