diff options
author | Norbert Preining <preining@logic.at> | 2009-08-11 10:16:29 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-08-11 10:16:29 +0000 |
commit | eee0a182112822bc3589e12c909020c619855764 (patch) | |
tree | e6a168facd767382e0f5907c38331595da39f47b /Master/tlpkg | |
parent | bcb7f83732c8609f2ab6d1d225d0b3de097f5701 (diff) |
reject removal of a package if it is either texlive.infra or
texlive.infra.$current_architecture
git-svn-id: svn://tug.org/texlive/trunk@14617 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 3 |
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; } |