summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2023-10-17 03:01:53 +0000
committerNorbert Preining <norbert@preining.info>2023-10-17 03:01:53 +0000
commit3e9c5c6e1c118283b7775fd707379f8c9fdd3fd5 (patch)
tree40f420b2cc25378ebd0cd509854828b1b7aa337f /systems/texlive/tlnet/tlpkg/TeXLive
parentc4125da665ac93db063e3c177f4fc5d172f5866f (diff)
CTAN sync 202310170301
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm11
1 files changed, 8 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
index a0826d6036..b376aa0ed7 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm
@@ -1,4 +1,4 @@
-# $Id: TLPDB.pm 68316 2023-09-18 21:15:11Z karl $
+# $Id: TLPDB.pm 68562 2023-10-16 17:17:01Z karl $
# TeXLive::TLPDB.pm - tlpdb plain text database files.
# Copyright 2007-2023 Norbert Preining
# This file is licensed under the GNU General Public License version 2
@@ -7,7 +7,7 @@
use strict; use warnings;
package TeXLive::TLPDB;
-my $svnrev = '$Revision: 68316 $';
+my $svnrev = '$Revision: 68562 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -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) {