diff options
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 12 |
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; |