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