actually show output of comm -3, other wording

git-svn-id: svn://tug.org/texlive/trunk@4492 c570f23f-e606-0410-a88d-b1316a301751

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);