diff options
-rwxr-xr-x | Build/cdbuild/place.newinfra | 8 |
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); |