should not happen wording

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

1 files changed, 6 insertions, 6 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 7dea481148b..dc8a0c84a5d 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -763,7 +763,7 @@ EOF
   TeXLive::TLUtils::mkdirhier($temp);
   if ($media eq 'DVD') {
     tlwarn ("Creating updater from DVD currently not implemented!\n");
-    tlwarn ("But that should not be necessary!\n");
+    tlwarn ("But it should not be necessary!\n");
   } else {
     if ($media eq 'CD') {
       copy("$remoteroot/$Archive/$pkg.tar.lzma", "$temp");
@@ -887,7 +887,7 @@ sub action_update {
     # . delete all hash entries for dependencies occuring on the local
     for my $c ($localtlpdb->collections) {
       my $tlc = $localtlpdb->get_package($c);
-      die ("That should not happen, listed but not found!") if !defined($tlc);
+      die "Should not happen, pkg $c listed but not found!" if !defined($tlc);
       my $tlcremote = $mediatlpdb->get_package($c);
       if (!defined($tlcremote)) {
         debug("Collection $c is not present on the server!\n");
@@ -904,7 +904,7 @@ sub action_update {
     # in case a package has been moved between collections
     for my $c ($mediatlpdb->collections) {
       my $tlc = $mediatlpdb->get_package($c);
-      die ("That should not happen, listed but not found!") if !defined($tlc);
+      die "Should not happen, listed but not found!" if !defined($tlc);
       for my $d ($tlc->depends) {
         # those package are referenced, so not remove them
         delete($removals{$d});
@@ -939,7 +939,7 @@ sub action_update {
   for my $c ($localtlpdb->collections) {
     my $localtlc = $localtlpdb->get_package($c);
     if (!defined($localtlc)) {
-      tlwarn("That should not happen!\n");
+      tlwarn("\nShould not happen, no localtlc for $c!\n");
       next;
     }
     my @localtlcdeps = $localtlc->depends;
@@ -983,13 +983,13 @@ sub action_update {
       } elsif ($newpkgs{$pkg}) {
         # do nothing here, it will be reported below!
       } else {
-        tlwarn("That should not happen: $pkg mentioned somewhere, but neither new nor force removed, please report!\n");
+        tlwarn("\nShould not happen, please report: $pkg mentioned, but neither new nor forcibly removed\n");
         next;
       }
       # install new packages
       my $mediatlp = $mediatlpdb->get_package($pkg);
       if (!defined($mediatlp)) {
-        tlwarn("strange, that should not happen: $pkg cannot be found in $location\n");
+        tlwarn("\nShould not happen, please report: $pkg not found in $location\n");
         next;
       }
       my $mediarev = $mediatlp->revision;