diff options
author | Karl Berry <karl@freefriends.org> | 2021-03-23 22:27:11 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-03-23 22:27:11 +0000 |
commit | b0b893248eb7c7047509603c71201365ef1193db (patch) | |
tree | 23faed8e6c6753595c78f8bb651668539fce0e21 /Master/tlpkg/bin/tl-prune-platforms | |
parent | 788cbb026d51be07a94ea10f42f62bbfbd09bab4 (diff) |
iso: copy non-symlinks to archive/ subdir; prune versioned platform files
git-svn-id: svn://tug.org/texlive/trunk@58664 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-prune-platforms')
-rwxr-xr-x | Master/tlpkg/bin/tl-prune-platforms | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/tl-prune-platforms b/Master/tlpkg/bin/tl-prune-platforms index 7051f695e94..6f58d45de06 100755 --- a/Master/tlpkg/bin/tl-prune-platforms +++ b/Master/tlpkg/bin/tl-prune-platforms @@ -87,10 +87,13 @@ sub main { $tlpdb->remove_tlpobj("$pkg.$a") unless $opt_dry; print "done\n"; # remove the container - if (-e "$containerdir/$pkg.$a.tar.xz") { - print "removing $containerdir/$pkg.$a.*tar.xz ... "; - `rm $containerdir/$pkg.$a.*tar.xz` unless $opt_dry; + my @arch_files = glob ("$containerdir/$pkg.$a.*tar.xz"); + if (@arch_files) { + print "removing @arch_files ... "; + `rm @arch_files` unless $opt_dry; print "done\n"; + } else { + print "no arch files for $pkg.$a?\n"; } } } |