summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLMedia.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm
index c5e11be41ac..8a7b01a111f 100644
--- a/Master/tlpkg/TeXLive/TLMedia.pm
+++ b/Master/tlpkg/TeXLive/TLMedia.pm
@@ -403,7 +403,8 @@ sub remove_package {
if (!defined($tlp)) {
tlwarn ("$pkg: package not present, cannot remove\n");
} else {
- if ($pkg =~ m/^texlive\.infra/) {
+ my $currentarch = $self->platform();
+ if ($pkg eq "texlive.infra" || $pkg eq "texlive.infra.$currentarch") {
log ("Not removing $pkg, it is essential!\n");
return 0;
}