summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-containers
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tl-update-containers')
-rwxr-xr-xMaster/tlpkg/bin/tl-update-containers18
1 files changed, 10 insertions, 8 deletions
diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers
index 3bb67458355..56a62be6dbb 100755
--- a/Master/tlpkg/bin/tl-update-containers
+++ b/Master/tlpkg/bin/tl-update-containers
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# Copyright 2008 Norbert Preining
+# Copyright 2008, 2009 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
#
@@ -120,13 +120,15 @@ sub main
for my $pkg (@packs) {
# by definition, any 00texlive... package does not need containers.
next if $pkg =~ /00texlive/;
- # we check for the existence of Master/tlpkg/disabled-packages-for-tlnet
- # and if it is present any package listed therein will not be
- # updated in tlnet
- if (-r "$Master/tlpkg/disabled-packages-for-tlnet") {
- if (!system("grep", "-q", $pkg, "Master/tlpkg/disabled-packages-for-tlnet")) {
- tlwarn("$pkg disabled for tlnet updates (tlpkg/disabled-packages-for-tlnet)\n");
- next,
+
+ # we check for the existence of a special config file, and if it
+ # is present any package listed therein will not be updated in
+ # tlnet. Assume GNU grep for checking it.
+ my $disabled_pkgs = "$Master/tlpkg/etc/tlnet-disabled-packages.txt";
+ if (-r $disabled_pkgs) {
+ if (!system("grep", "-q", "-x", "-F", $pkg, $disabled_pkgs)) {
+ tlwarn("$0: $pkg disabled for tlnet updates in $disabled_pkgs\n");
+ next;
}
}
my $oldrev = 0;