sub _cleanfilesfordir
{
-my($dir)=@_;
+my($dir,@cleanfiles)=@_;
return map({
if (m#^\Q$dir\E/([^/]+)$#) { # this-dir: "./this-dir/file-name.c"
else {
();
}
- } _cleanfiles());
+ } @cleanfiles);
}
sub _cvsdirs
"rpmtest" ,sub { $class->_rpmbuild("sign"=>0); },
"deb" ,sub { $class->_debbuild("sign"=>1); },
"debtest" ,sub { $class->_debbuild("sign"=>0); },
- "cleanfilesfordir=s",sub { print "$_\n" for (_cleanfilesfordir $_[1]); exit 0; },
+ "cleanfilesfordir=s",sub { print "$_\n" for (_cleanfilesfordir($_[1],_cleanfiles())); exit 0; },
"dist" ,\$Options{"ARGV_dist"},
"copy!" ,\$Options{"ARGV_copy"},
"clean" ,\$Options{"ARGV_clean"},
}
for my $dir (_cvsdirs(".")) {
- my @cleanfilesfordir=_cleanfilesfordir $dir;
+ my @cleanfilesfordir=_cleanfilesfordir $dir,_cleanfiles();
_writefile $dir."/.cvsignore",map("$_\n",@cleanfilesfordir) if !$Options{"ARGV_fullclean"};
_remove "nocheck",\1,map({ _expandclass("$dir/$_"); } grep({
$Options{"ARGV_fullclean"} or $_ ne ".cvsignore";