From 91fab1b3c6f690976f73fd5caa1f230966391211 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 5 Mar 2022 22:22:47 +0000 Subject: wording git-svn-id: svn://tug.org/texlive/trunk@62459 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'Master/tlpkg/TeXLive') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index da35ab1352d..f251ba66402 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -260,7 +260,7 @@ BEGIN { @EXPORT = qw(setup_programs download_file process_logging_options tldie tlwarn info log debug ddebug dddebug debug debug_hash_str debug_hash - win32 xchdir xsystem run_cmd system_pipe diskfree sort_archs); + win32 xchdir xsystem run_cmd system_pipe sort_archs); } use Cwd; @@ -738,8 +738,9 @@ sub xsystem { Run shell command C<$cmd> and captures its output. Returns a list with CMD's output as the first element and the return value (exit code) as second. -The C<@envvars> - if given - are variable name / value pairs set for the call -and reset to their original value (or unset if not defined initially). +If given, C<@envvars> is a list of environment variable name / value +pairs set in C<%ENV> for the call and reset to their original value (or +unset if not defined initially). =cut @@ -805,10 +806,10 @@ sub system_pipe { =item C -If a POSIX compliant C program is found, returns the number of -Mb free at C<$path>, otherwise C<-1>. If C<$path> is not existent, go -back up to two levels and check if any of the parents exists, and use -the existing one for computing the disk space. +If a POSIX compliant C program is found, returns the number of Mb +free at C<$path>, otherwise C<-1>. If C<$path> does not exist, check +upwards for two levels for an existing parent, and if found, use it for +computing the disk space. =cut @@ -839,9 +840,9 @@ sub diskfree { my ($h,$l) = split(/\n/, $output); my ($fs, $nrb, $used, $avail, @rest) = split(' ', $l); debug("disk space: used=$used (512-block), avail=$avail (512-block)\n"); - # $avail is in 512 blocks, so we need to device by 2 * 1024 to obtain Mb - # require that at least 100M remain free - return (int($avail / 2024)); + # $avail is in 512-byte blocks, so we need to divide by 2*1024 to + # obtain Mb. Require that at least 100M remain free. + return (int($avail / 2048)); } else { # error in running df -P out of whatever reason return (-1); -- cgit v1.2.3