i have a script to automate that (below). i left the generated .t's out
for the moment, wondering if some might become non-autogenerated and
checked in, not that it would hurt if that happened and they were also in
.cvsignore
#!/usr/bin/perl -w
#handy to generate .cvsignore entries
#e.g.
# cvs diff -u > diff.txt
# cvsignore < diff.txt
use strict;
use Cwd ();
my %files = ();
while (<>) {
next unless s/^\? //;
chomp;
next unless m:(.*)/([^/]+)$:;
push @{ $files{$1} }, $2;
}
my $pwd = Cwd::fastcwd();
print "PWD = $pwd\n";
while (my($k,$v) = each %files) {
chdir $pwd or die "chdir `$pwd' failed: $!";
unless (-d $k) {
die "`$k' is not a directory"
}
chdir $k;
my $cvs_add = -e ".cvsignore" ? 0 : 1;
open FH, ">>.cvsignore" or die $!;
print FH join "\n", @$v, "";
close FH;
if ($cvs_add) {
system "cvs add .cvsignore";
}
print "$k: @$v\n";
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
