From 65691274214fec460e3f715ebe76e0fba75f0d3f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 22 Jun 2007 17:43:21 +0000 Subject: actually show output of comm -3, other wording git-svn-id: svn://tug.org/texlive/trunk@4492 c570f23f-e606-0410-a88d-b1316a301751 --- Build/cdbuild/place.newinfra | 8 ++++---- 1 file 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); -- cgit v1.2.3