summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-09-26 18:03:39 +0000
committerKarl Berry <karl@freefriends.org>2007-09-26 18:03:39 +0000
commit4b9d315fe240e62e96c7f4ac884d75f8441e0636 (patch)
tree422a8122fcd389d25367c7e45b79205bd36787a5 /Build
parent8286e8f8443b365625bc4b24a1abc456129738ff (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-xBuild/cdbuild/place12
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`;
}