summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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);