diff options
author | Norbert Preining <norbert@preining.info> | 2023-10-17 03:01:53 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-10-17 03:01:53 +0000 |
commit | 3e9c5c6e1c118283b7775fd707379f8c9fdd3fd5 (patch) | |
tree | 40f420b2cc25378ebd0cd509854828b1b7aa337f /systems/texlive/tlnet/tlpkg/TeXLive | |
parent | c4125da665ac93db063e3c177f4fc5d172f5866f (diff) |
CTAN sync 202310170301
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPDB.pm | 11 |
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) { |