summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-prune-platforms
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-05-17 22:42:44 +0000
committerKarl Berry <karl@freefriends.org>2013-05-17 22:42:44 +0000
commitc9a8d620d3ff07bb3c431c3749e5b7ede6d1a2dc (patch)
treed0e87f5eb5deb3d4e81db17359f71215363d7802 /Master/tlpkg/bin/tl-prune-platforms
parenta0851b9bd912f89c8b857e066e9c2390a28d0061 (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-xMaster/tlpkg/bin/tl-prune-platforms24
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