diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index f2aaf44c95e..aec7a73f35c 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -522,19 +522,21 @@ sub xsystem { =item C<run_cmd($cmd)> -runs a command and captures its output. Then returns a list with the -output as first element and the return value (exit code) as second. +runs shell CMD and captures its output. Returns a list with CMD's +output as the first element and the return value (exit code) as second. =cut sub run_cmd { my $cmd = shift; my $output = `$cmd`; + $output = "" if ! defined ($output); # don't return undef + my $retval = $?; if ($retval != 0) { $retval /= 256 if $retval > 0; } - return ($output, $retval); + return ($output,$retval); } |