diff options
author | Karl Berry <karl@freefriends.org> | 2008-12-07 16:52:59 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-12-07 16:52:59 +0000 |
commit | e42a8e5ea29023f9e35316ec28cfad279efa9e55 (patch) | |
tree | e2ef876a6f11a7fb23c36749c77b7e3c642394ec /Master/tlpkg/bin/tl-update-containers | |
parent | 9d3965c30279fb5b9cb6ce5e611c4e3796585e4c (diff) |
doc/verbose/check updates
git-svn-id: svn://tug.org/texlive/trunk@11549 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-containers')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-containers | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers index f13baa9e5e4..6a96f6e7b71 100755 --- a/Master/tlpkg/bin/tl-update-containers +++ b/Master/tlpkg/bin/tl-update-containers @@ -57,7 +57,7 @@ sub main # check that we have a target db. if (! $opt_recreate && ! -r "$opt_location/tlpkg/texlive.tlpdb") { die "$0: Cannot load tlpdb from output directory $opt_location;\n" - . "specify --recreate if you want to populate anew.\n"; + . " specify --recreate if you want to populate anew.\n"; } # get source db, same hierarchy from which we are being run. @@ -78,15 +78,16 @@ sub main tlwarn("$0: unknown container format $format in 00texlive.config; ", "ignoring and continuing with $type"); } - debug("format=$type srcsplit=$srcsplit docsplit=$docsplit\n"); + debug("$Master: format=$type srcsplit=$srcsplit docsplit=$docsplit\n"); + my $nettlpdb; + my %count; my @todopacks = (); my @removepacks = (); my @removecontainers = (); my $opt_containerdir = "$opt_location/$TeXLive::TLConfig::Archive"; - my $nettlpdb; - my %count; - + &debug("output containerdir = $opt_containerdir\n"); + if ($opt_recreate) { # remake everything. if (@ARGV) { @@ -340,14 +341,16 @@ sub main $nettlpdb->save; system("lzma --force -k -z $opt_location/tlpkg/texlive.tlpdb"); - # do a last check that all the containers are actually present - foreach my $p ($nettlpdb->list_packages) { - next if $p =~ /00texlive/; - if (! -r "$opt_containerdir/$p.tar.lzma") { - tlwarn("$0: container for $p is missing, strange\n"); + if (! @ARGV) { + # do a last check that all the containers are actually present + foreach my $p ($nettlpdb->list_packages) { + next if $p =~ /00texlive/; + if (! -r "$opt_containerdir/$p.tar.lzma") { + tlwarn("$0: container for $p is missing, strange\n"); + } } } - + return 0; } |