texlive[46203] Master/tlpkg/TeXLive/TLPDB.pm: (remove_package):

[commits+karl at tug.org]

Revision: 46203
          http://tug.org/svn/texlive?view=revision&revision=46203
Author:   karl
Date:     2018-01-03 23:02:04 +0100 (Wed, 03 Jan 2018)
Log Message:
-----------
(remove_package): wording of warning.

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLPDB.pm

Modified: trunk/Master/tlpkg/TeXLive/TLPDB.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPDB.pm	2018-01-03 21:59:52 UTC (rev 46202)
+++ trunk/Master/tlpkg/TeXLive/TLPDB.pm	2018-01-03 22:02:04 UTC (rev 46203)
@@ -2073,13 +2073,13 @@
 
 =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;
@@ -2086,7 +2086,7 @@
   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") {