From 6a1e1560734a829a3c785568803fe9ed1c28bc88 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 19 Jun 2021 15:17:38 +0000 Subject: insert routine names in "strange," messages git-svn-id: svn://tug.org/texlive/trunk@59637 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) (limited to 'Master') diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 75b3865f681..99b7bc79655 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -2574,7 +2574,8 @@ sub auto_remove_install_force_packages { next if $removals_full{$p}; my $remotetlp = $remotetlpdb->get_package($p); if (!defined($remotetlp)) { - tlwarn("$prg: Strange, $p mentioned but not found anywhere!\n"); + tlwarn("$prg:auto_remove_install_force_packages: strange, package " + . "mentioned but not found anywhere: $p\n"); next; } next if ($remotetlp->category ne "Collection"); @@ -4109,7 +4110,8 @@ sub show_one_package_list { if (@cand) { my $first = shift @cand; if (defined($first)) { - tlwarn("$prg: strange, we have a first candidate but no tlp: $p\n"); + tlwarn("$prg:show_one_package_list: strange, have first " + . "candidate but no tlp: $p\n"); return($F_WARNING); } # already shifted away the first element @@ -4122,19 +4124,23 @@ sub show_one_package_list { my ($t,$r) = split(/\//, $a, 2); my $tlp = $remotetlpdb->get_package($p, $t); my $foo = $tlp->shortdesc; - print " $t: ", defined($foo) ? $foo : "(shortdesc missing)" , "\n"; + print " $t: ", + defined($foo) ? $foo : "(shortdesc missing)" , "\n"; } return($F_WARNING); } else { - tlwarn("$prg: strange, package listed but no residual candidates: $p\n"); + tlwarn("$prg:show_one_package_list: strange, package listed " + . "but no residual candidates: $p\n"); return($F_WARNING); } } else { - tlwarn("$prg: strange, package listed but no candidates: $p\n"); + tlwarn("$prg:show_one_package_list: strange, package listed but " + . "no candidates: $p\n"); return($F_WARNING); } } else { - tlwarn("$prg: strange, package cannot be found in remote tlpdb: $p\n"); + tlwarn("$prg:show_one_package_list: strange, package not found in " + . "remote tlpdb: $p\n"); return($F_WARNING); } } @@ -4189,7 +4195,8 @@ sub show_one_package_detail { # useless test, @cand will always be defined because $remotetlpdb is virtual my $first = shift @cand; if (defined($first)) { - tlwarn("$prg: strange, we have a first candidate but no tlp: $pkg\n"); + tlwarn("$prg:show_one_package_detail: strange, have first candidate " + . "but no tlp: $pkg\n"); return($F_WARNING); } # already shifted away the first element -- cgit v1.2.3