diff options
Diffstat (limited to 'Master/tlpkg/bin/tl-update-containers')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-containers | 18 |
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; |