for my $cvsdir (@ARGV ? @ARGV : ".") {
for my $dir (AutoGen::_cvsdirs($cvsdir)) {
my @cleanfilesfordir=AutoGen::_cleanfilesfordir $dir,@cleanfiles;
for my $cvsdir (@ARGV ? @ARGV : ".") {
for my $dir (AutoGen::_cvsdirs($cvsdir)) {
my @cleanfilesfordir=AutoGen::_cleanfilesfordir $dir,@cleanfiles;