summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-prune-platforms
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tl-prune-platforms')
-rwxr-xr-xMaster/tlpkg/bin/tl-prune-platforms9
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";
}
}
}