summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2023-10-16 17:17:01 +0000
committerKarl Berry <karl@freefriends.org>2023-10-16 17:17:01 +0000
commit9d7f0c1688f065455defc9efe8765bc8c8b100a6 (patch)
tree6169e242f23a639679e950ebc84b1413b85245ea /Master/tlpkg/TeXLive/TLPDB.pm
parent4b3b91ce79597afd74bcdd27284b18871fa02832 (diff)
(remove_package): don't worry if a file to be
removed doesn't exist, for the case where we're called from tl-update-containers. git-svn-id: svn://tug.org/texlive/trunk@68562 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 63f8ef44b06..06da78f3b57 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -2128,8 +2128,13 @@ sub remove_package {
# now do the removal
for my $entry (@goodfiles) {
+ # sometimes the files might not be there: 1) we remove .tlpobj
+ # explicitly above; 2) we're called from tl-update-containers
+ # to update the network tlpdb, and that doesn't have an expanded
+ # texmf-dist.
+ next unless -e $entry;
+ #
unlink($entry)
- || $entry =~ /\.tlpobj$/ # we remove .tlpobj explicitly above
|| tlwarn("TLPDB::remove_package: Could not unlink $entry: $!\n");
}
for my $d (@removals) {