texlive[54620] Master/tlpkg/bin/tl-prune-platforms: (main): removed
commits+karl at tug.org
commits+karl at tug.org
Mon Apr 6 00:20:33 CEST 2020
Revision: 54620
http://tug.org/svn/texlive?view=revision&revision=54620
Author: karl
Date: 2020-04-06 00:20:32 +0200 (Mon, 06 Apr 2020)
Log Message:
-----------
(main): removed the versioned containers for the
pruned platforms, too (that is where the files
are), not just the unversioned symlinks.
Modified Paths:
--------------
trunk/Master/tlpkg/bin/tl-prune-platforms
Modified: trunk/Master/tlpkg/bin/tl-prune-platforms
===================================================================
--- trunk/Master/tlpkg/bin/tl-prune-platforms 2020-04-05 22:19:30 UTC (rev 54619)
+++ trunk/Master/tlpkg/bin/tl-prune-platforms 2020-04-05 22:20:32 UTC (rev 54620)
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# Copyright 2012-2018 Norbert Preining
+# Copyright 2012-2020 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
#
@@ -87,9 +87,9 @@
$tlpdb->remove_tlpobj("$pkg.$a") unless $opt_dry;
print "done\n";
# remove the container
- if (-r "$containerdir/$pkg.$a.tar.xz") {
- print "removing $containerdir/$pkg.$a.tar.xz ... ";
- `rm $containerdir/$pkg.$a.tar.xz` unless $opt_dry;
+ if (-e "$containerdir/$pkg.$a.tar.xz") {
+ print "removing $containerdir/$pkg.$a.*tar.xz ... ";
+ `rm $containerdir/$pkg.$a.*tar.xz` unless $opt_dry;
print "done\n";
}
}
More information about the tex-live-commits
mailing list.