put rev numbers in local-newer-than-media message

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

1 files changed, 6 insertions, 4 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index e7c2d7593a6..b8e4c686ef7 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -1170,7 +1170,8 @@ sub action_update {
               $remove_unwind_container = 1;
               $unwind_package = $newname;
             }
-            my $instret = TeXLive::TLMedia->_install_package("$unwind_package" , [] ,$localtlpdb);
+            my $instret = TeXLive::TLMedia->_install_package("$unwind_package",
+                                                             [], $localtlpdb);
             if ($instret) {
               # now we have to include the tlpobj
               my $tlpobj = TeXLive::TLPOBJ->new;
@@ -1190,7 +1191,8 @@ sub action_update {
         }
       }
     } elsif ($rev > $mediarev) {
-      print "$pkg: revision in $location is less than local revision, not updating.\n";
+      print "$pkg: local revision ($rev) is newer than revision in $location"
+            . " ($mediarev), not updating.\n";
       next;
     }
   }
@@ -1199,9 +1201,9 @@ sub action_update {
   if (($nrupdated == 0) && ($tlmediasrc->media ne "NET") && $opt_all) {
     # for all but net updates we warn if nothing is updated
     tlwarn("\nYour installation is set up to look on the disk for updates.\n");
-    tlwarn("If you want to install from the Internet for this one time only, run\n");
+    tlwarn("To install from the Internet for this one time only, run\n");
     tlwarn("  tlmgr -location $TeXLiveURL\n");
-    tlwarn("\nIf you want to change the default for all future updates, run\n");
+    tlwarn("\nTo change the default for all future updates, run\n");
     tlwarn("  tlmgr option location $TeXLiveURL\n\n");
   }
   return(\%ret);