summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-06-19 15:17:38 +0000
committerKarl Berry <karl@freefriends.org>2021-06-19 15:17:38 +0000
commit6a1e1560734a829a3c785568803fe9ed1c28bc88 (patch)
treece234511c339f270f3b3a938e3222a9167e57575 /Master/texmf-dist/scripts
parentf5b8a6689ffb8d3f30e514b87b7d03b499c4abed (diff)
insert routine names in "strange," messages
git-svn-id: svn://tug.org/texlive/trunk@59637 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl21
1 files changed, 14 insertions, 7 deletions
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