diff options
author | Karl Berry <karl@freefriends.org> | 2016-06-29 16:04:35 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-06-29 16:04:35 +0000 |
commit | 2597736aa760a011c7f8f0b9061139ba1131ac73 (patch) | |
tree | 12b69a6bb1bbc4d031d196c99b1e535b6f2097c6 /Master/tlpkg | |
parent | 4cba201476cfd2785bcb999d7dd7eed0abcbdeff (diff) |
doc/test updates.
dvips.texi: remov
fmtutil.pl: return status, --no-strict wording.
updmap.pl: main output first.
TLPDB.pm (not_virtual_install_package): variables in diagnostics.
tl-update-containers: multi-arg xsystem call.
git-svn-id: svn://tug.org/texlive/trunk@41566 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 13 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tl-update-containers | 7 |
2 files changed, 10 insertions, 10 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 48f95e6f260..32119ea0f75 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -243,7 +243,8 @@ sub remove_tlpobj { The C<from_file> function initializes the C<TLPDB> if the root was not given at generation time. See L<TLPDB::new> for more information. -It returns the actual number of packages (TLPOBJs) read from C<$filename>. +It returns the actual number of packages (TLPOBJs) read from +C<$filename>, and zero if there are problems (and gives warnings). =cut @@ -290,9 +291,8 @@ sub from_file { } elsif (-d "$rootpath/$Archive") { $media = 'local_compressed'; } else { - # we cannot find the right type, return undefined, that should - # make people notice - tlwarn("Cannot determine type of tlpdb!\n"); + # we cannot find the right type, return zero, hope people notice + tlwarn("Cannot determine type of tlpdb from $rootpath!\n"); return 0; } } @@ -1706,9 +1706,10 @@ sub not_virtual_install_package { # we have to write out the tlpobj file since it is contained in the # archives (.tar.xz) but at DVD install time we don't have them my $tlpod = $totlpdb->root . "/tlpkg/tlpobj"; - mkdirhier( $tlpod ); + mkdirhier($tlpod); my $count = 0; - until (open(TMP,">$tlpod/".$tlpobj->name.".tlpobj")) { + my $tlpobj_file = ">$tlpod/" . $tlpobj->name . ".tlpobj"; + until (open(TMP, $tlpobj_file)) { # The open might fail for no good reason on Windows. # Try again for a while, but not forever. if ($count++ == 100) { die "$0: open($tlpobj_file) failed: $!"; } diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers index 18396811f20..42f39eeac66 100755 --- a/Master/tlpkg/bin/tl-update-containers +++ b/Master/tlpkg/bin/tl-update-containers @@ -405,10 +405,9 @@ sub main { xsystem("$TeXLive::TLConfig::ChecksumProgram texlive.tlpdb > texlive.tlpdb.$TeXLive::TLConfig::ChecksumExtension"); # remove signature, otherwise gpg breaks xsystem("rm -f texlive.tlpdb.$TeXLive::TLConfig::ChecksumExtension.asc"); - if (!$opt_nosign) { - # the following somehow needs to be on one line, otherwise the shell - # expansion is strange! - xsystem("$opt_gpgcmd texlive.tlpdb.$TeXLive::TLConfig::ChecksumExtension"); + if (! $opt_nosign) { + xsystem($opt_gpgcmd, + "texlive.tlpdb.$TeXLive::TLConfig::ChecksumExtension"); } xchdir($olddir); } else { |