diff options
author | Karl Berry <karl@freefriends.org> | 2007-09-26 18:03:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-09-26 18:03:39 +0000 |
commit | 4b9d315fe240e62e96c7f4ac884d75f8441e0636 (patch) | |
tree | 422a8122fcd389d25367c7e45b79205bd36787a5 /Build | |
parent | 8286e8f8443b365625bc4b24a1abc456129738ff (diff) |
count identical files as well as common files.
git-svn-id: svn://tug.org/texlive/trunk@5051 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-x | Build/cdbuild/place | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Build/cdbuild/place b/Build/cdbuild/place index ad9b7b8f408..51ebd11f1b4 100755 --- a/Build/cdbuild/place +++ b/Build/cdbuild/place @@ -118,14 +118,16 @@ if (!defined($tlpold)) { my @difffiles = `comm -12 $TMP/tlplace.new $TMP/tlplace.old`; chomp (@difffiles); my $sum = 0; - unlink ("$TMP/tlplace.diff"); - my $diff_cmd = "diff --text --ignore-all-space -U 0 -s"; + my $diff_file = "$TMP/tlplace.diff"; + unlink ($diff_file); + my $diff_cmd = "diff --text --ignore-all-space -U 0"; foreach (@difffiles) { - my @foo = `$diff_cmd $M/$_ $mydir/$package/$_ | tee -a $TMP/tlplace.diff`; - $sum += ($#foo); + my @foo = `$diff_cmd $M/$_ $mydir/$package/$_ | tee -a $diff_file`; + $sum += $#foo; # zero-based, so first line doesn't count. } my $nrcommfiles = @difffiles; - print "$nrcommfiles common files, ~$sum lines different ($TMP/tlplace.diff)\n\n\f\n"; + chomp (my $identical = `grep 'are identical' $diff_file | wc -l`); + print "$nrcommfiles common files, $identical unchanged, ~$sum lines different ($diff_file)\n\n\f\n"; #`rm -f $TMP/tlplace.new $TMP/tlplace.old $TMP/tlplace.diff`; } |