reverse current/new display; more pfb exceptions

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

1 files changed, 3 insertions, 3 deletions

diff --git a/Master/tlpkg/libexec/place b/Master/tlpkg/libexec/place
index 49a17a69bd0..d037d412bf8 100755
--- a/Master/tlpkg/libexec/place
+++ b/Master/tlpkg/libexec/place
@@ -330,7 +330,7 @@ sub show_tlp_diffs {
   if (keys %Old == 0) {
     print "place: $package not present in $M/$InfraLocation/$DatabaseName";
   } else {
-    print "new vs. present $package (present is indented)\n";
+    print "current vs. new $package (new is indented)\n";
     my @oldfiles = keys %Old;
     unlink ("$tmpfile.old");
     foreach (sort @oldfiles) {
@@ -341,8 +341,8 @@ sub show_tlp_diffs {
     foreach (sort @newfiles) {
       `echo "$_" >>$tmpfile.new`;
     }
-    print `comm -3 $tmpfile.new $tmpfile.old`;
-    my @difffiles = `comm -12 $tmpfile.new $tmpfile.old`;
+    print `comm -3 $tmpfile.old $tmpfile.new`;
+    my @difffiles = `comm -12 $tmpfile.old $tmpfile.new`;
     chomp (@difffiles);
     my $sum = 0;
     my $identical = 0;