texlive[54620] Master/tlpkg/bin/tl-prune-platforms: (main): removed

[commits+karl at tug.org]

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";
             }
           }