summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-containers
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-12-07 16:52:59 +0000
committerKarl Berry <karl@freefriends.org>2008-12-07 16:52:59 +0000
commite42a8e5ea29023f9e35316ec28cfad279efa9e55 (patch)
treee2ef876a6f11a7fb23c36749c77b7e3c642394ec /Master/tlpkg/bin/tl-update-containers
parent9d3965c30279fb5b9cb6ce5e611c4e3796585e4c (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-xMaster/tlpkg/bin/tl-update-containers25
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;
}