summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-01-03 22:02:04 +0000
committerKarl Berry <karl@freefriends.org>2018-01-03 22:02:04 +0000
commit0e0b805d9cc7d4a6352bd8aa072692a811b905f6 (patch)
tree19d15807f20944203a94701936059bb25048640e
parent651c63e85b82dd414fc9acddfe01ccaa3b0e9bf1 (diff)
(remove_package): wording of warning.
git-svn-id: svn://tug.org/texlive/trunk@46203 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 834920a8a48..e6726a7a6f8 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -2073,20 +2073,20 @@ sub _install_data {
=item << $tlpdb->remove_package($pkg, %options) >>
-removes a single package with all the files and the entry in the db.
+Removes a single package with all the files and the entry in the db;
+warns if the package does not exist.
=cut
-#
# remove_package removes a single package with all files (including the
-# # tlpobj files) and the entry from the tlpdb.
+# tlpobj files) and the entry from the tlpdb.
sub remove_package {
my ($self, $pkg, %opts) = @_;
my $localtlpdb = $self;
my $tlp = $localtlpdb->get_package($pkg);
my $usertree = $localtlpdb->setting("usertree");
if (!defined($tlp)) {
- tlwarn ("TLPDB: package not present, cannot remove: $pkg\n");
+ tlwarn ("TLPDB: package not present, so not removing: $pkg\n");
} else {
my $currentarch = $self->platform();
if ($pkg eq "texlive.infra" || $pkg eq "texlive.infra.$currentarch") {