From 244133e201557e3a62cb74c3b87db589300c124f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 26 Oct 2008 00:51:10 +0000 Subject: exit 0 on success git-svn-id: svn://tug.org/texlive/trunk@11059 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tl-update-containers | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'Master/tlpkg') diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers index 21817052217..2c6d24ddb78 100755 --- a/Master/tlpkg/bin/tl-update-containers +++ b/Master/tlpkg/bin/tl-update-containers @@ -76,7 +76,7 @@ sub main if (! $opt_recreate) { if (! -r "$opt_location/tlpkg/texlive.tlpdb") { - tlwarn ("$0: Cannot load tlpdb from $opt_location, continuing in recreate mode.\n"); + tlwarn("$0: Cannot load tlpdb from $opt_location, continuing in recreate mode.\n"); $opt_recreate = 1; } } @@ -179,11 +179,11 @@ sub main # do a full setup my $ret = &TeXLive::TLUtils::setup_programs("$Master/tlpkg/installer"); if ($ret == -1) { - tlwarn("no binary of lzmadec for $::_platform_ detected, aborting.\n"); + tlwarn("$0: no binary of lzmadec for $::_platform_ detected, aborting.\n"); exit 1; } if (!$ret) { - tlwarn("binaries could not be set up, aborting.\n"); + tlwarn("$0: binaries could not be set up, aborting.\n"); exit 1; } } @@ -196,11 +196,11 @@ sub main # .arch packages are skipped, too if ($pkg =~ m/^$manualpkgre/) { if ($opt_all || $opt_recreate) { - tlwarn ("$0: updating critical $pkg due to -all\n"); + tlwarn("$0: updating critical $pkg due to -all\n"); last; # of the manualpkgre checks } else { - tlwarn ("$0: skipping critical $pkg\n"); + tlwarn("$0: skipping critical $pkg\n"); # we assume that the packages in @critical_pkg_list always # exist, so if they are there then the number of updated packages # should be reduced. @@ -296,11 +296,11 @@ sub main # .arch packages are skipped, too if ($op =~ m/^$manualpkgre/) { if ($opt_all || $opt_recreate) { - tlwarn ("$0: removing critical $op due to -all\n"); + tlwarn("$0: removing critical $op due to -all\n"); last; # of the manualpkgre checks } else { - tlwarn ("$0: skipping removal of critical $op\n"); + tlwarn("$0: skipping removal of critical $op\n"); # the following line skips all other regexp checks on critical # packages and skips everything below this (the part which # actually builds the containers) and continues with the next @@ -340,9 +340,11 @@ sub main foreach my $p ($nettlpdb->list_packages) { next if $p =~ /00texlive/; if (! -r "$opt_containerdir/$p.tar.lzma") { - tlwarn ("container for $p is missing, strange!\n"); + tlwarn("$0: container for $p is missing, strange\n"); } } + + return 0; } -- cgit v1.2.3