From 0e0b805d9cc7d4a6352bd8aa072692a811b905f6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 3 Jan 2018 22:02:04 +0000 Subject: (remove_package): wording of warning. git-svn-id: svn://tug.org/texlive/trunk@46203 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPDB.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLPDB.pm') 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") { -- cgit v1.2.3