summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-06-22 17:43:21 +0000
committerKarl Berry <karl@freefriends.org>2007-06-22 17:43:21 +0000
commit65691274214fec460e3f715ebe76e0fba75f0d3f (patch)
treeb0d11e43aff4ca4ae950aaeac7a8bd105b5e0b7b
parent42871161d18b95e44b4ed1d8548f143de6e82c24 (diff)
actually show output of comm -3, other wording
git-svn-id: svn://tug.org/texlive/trunk@4492 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xBuild/cdbuild/place.newinfra8
1 files changed, 4 insertions, 4 deletions
diff --git a/Build/cdbuild/place.newinfra b/Build/cdbuild/place.newinfra
index ee643352642..915d32db543 100755
--- a/Build/cdbuild/place.newinfra
+++ b/Build/cdbuild/place.newinfra
@@ -93,7 +93,7 @@ my $tlpnew = $tlpsrc->make_tlpobj($tltree);
# we took over the comparison of files from the ctan2tl script since
# we are here in perl world, which makes it easier ...
if (!defined($tlpold)) {
- print STDERR "$package: not present in $M/texlive.tlpdb\n";
+ warn "place: $package not present in $M/texlive.tlpdb\n\n";
} else {
print "\n\f new vs. present $package\n";
my @oldfiles;
@@ -112,7 +112,7 @@ if (!defined($tlpold)) {
foreach (sort @newfiles) {
`echo $_ >> /tmp/pkgfiles.new`;
}
- `comm -3 /tmp/pkgfiles.new /tmp/pkgfiles.old`;
+ print `comm -3 /tmp/pkgfiles.new /tmp/pkgfiles.old`;
my @difffiles = `comm -12 /tmp/pkgfiles.new /tmp/pkgfiles.old`;
chomp(@difffiles);
my $sum = 0;
@@ -121,7 +121,7 @@ if (!defined($tlpold)) {
$sum += ($#foo + 1);
}
my $nrcommfiles = $#difffiles + 1;
- print "$nrcommfiles common files, ~$sum lines different\n";
+ print "$nrcommfiles common files, ~$sum lines different\n\n\f\n";
#`rm -f /tmp/pkgfiles.new /tmp/pkgfiles.old`;
}
@@ -183,7 +183,7 @@ for my $dir (sort keys %dirs) {
#
close (DIRLIST) || warn "close($DIRLIST) failed: $!";
-printf STDERR, "WARNING WARNING Things we SHOULD/COULD do here:\n - Update the texlive.tlpdb\n - Compare the files ACTUALLY present in cooked/package with those included via tlpsrc/tltree generation!!!\n - Create list file\n - Update the list of available packages for web update\n - Create zip file(s)\n\n\n";
+warn "WARNING WARNING Things we SHOULD/COULD do here:\n - Update the texlive.tlpdb\n - Compare the files ACTUALLY present in cooked/package with those included via tlpsrc/tltree generation!!!\n - Create list file\n - Update the list of available packages for web update\n - Create zip file(s)\n\n\n";
exit (0);