diff options
author | Karl Berry <karl@freefriends.org> | 2013-05-17 22:42:44 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-05-17 22:42:44 +0000 |
commit | c9a8d620d3ff07bb3c431c3749e5b7ede6d1a2dc (patch) | |
tree | d0e87f5eb5deb3d4e81db17359f71215363d7802 /Master/tlpkg/bin/tl-prune-platforms | |
parent | a0851b9bd912f89c8b857e066e9c2390a28d0061 (diff) |
prune platforms from iso
git-svn-id: svn://tug.org/texlive/trunk@30535 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-prune-platforms')
-rwxr-xr-x | Master/tlpkg/bin/tl-prune-platforms | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/Master/tlpkg/bin/tl-prune-platforms b/Master/tlpkg/bin/tl-prune-platforms index 8c40941b853..2d2acd0f00a 100755 --- a/Master/tlpkg/bin/tl-prune-platforms +++ b/Master/tlpkg/bin/tl-prune-platforms @@ -1,9 +1,10 @@ #!/usr/bin/env perl -# Copyright 2012 Norbert Preining +# Copyright 2012-2013 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # -# Prune (remove) platforms from a tlnet distribution tree +# Prune (remove) platforms from a tlnet distribution tree. +# Run from tl-update-images. my $vc_id; my $mydir; @@ -51,7 +52,7 @@ sub main my $format = $tlpdb->config_container_format; my $type = "xz"; - if ($format ne "xz") { + if ($format ne $type) { tlwarn("$0: unknown container format $format in 00texlive.config; ", "ignoring and continuing with $type"); } @@ -61,8 +62,7 @@ sub main my @all_archs = $tlpdb->available_architectures; for my $a (@ARGV) { if (!TeXLive::TLUtils::member($a, @all_archs)) { - print "Platform $a not installed, cannot prune, exiting\n"; - exit 1; + die "platform $a not installed, cannot prune, goodbye"; } } @@ -75,8 +75,8 @@ sub main my $tlp = $tlpdb->get_package($pkg); if (!$tlp) { - # that is a package foobar.$a that has already been remove but - # is still in the list above, so ignore that + # that is a package foobar.$a that has already been removed but + # is still in the list above, so ignore it. next; } foreach my $dep ($tlp->depends) { @@ -140,12 +140,12 @@ pseudo-package C<00texlive.config>. See L<TeXLive::TLPDB>. =head1 DESCRIPTION -This program removes all traces of all platforms given as arguments, -that is: remove the binfiles entries in the tlpdb, and remove the -containers. +This program removes the binary directories of the platforms given as +arguments; that is, remove the binfiles entries in the tlpdb, and remove +the containers. (Any xz and wget binaries for the installer remain, though.) -It is used during DVD production to exclude certain -platforms, and is run from the L<tl-update-image> script. +It is used during DVD production to exclude certain platforms, and is +run from the L<tl-update-images> script. =head1 AUTHORS AND COPYRIGHT |