diff options
-rwxr-xr-x | Master/install-tl | 2 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
2 files changed, 6 insertions, 5 deletions
diff --git a/Master/install-tl b/Master/install-tl index 319eb5a3d7c..ac34c122baf 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -1,7 +1,7 @@ #!/usr/bin/env perl # $Id$ # -# Copyright 2007, 2008 Reinhard Kotucha, Norbert Preining +# Copyright 2007, 2008, 2009 Reinhard Kotucha, Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 1e1dec3525c..915888823b9 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1308,7 +1308,7 @@ sub setup_programs { return 1; # success } -# + # setup one prog on unix using the following logic: # - if the shipped one is -x and can be executed, use it # - if the shipped one is -x but cannot be executed, copy it. set -x @@ -1320,7 +1320,8 @@ sub setup_programs { # - if nothing shipped, GOTO fallback # # fallback: -# if prog itself is found and can be executed, use it, otherwise return 0 +# if prog is found in PATH and can be executed, use it, +# otherwise return 0. # sub setup_unix_one { my ($p, $def, $arg) = @_; @@ -1397,8 +1398,8 @@ sub setup_unix_one { if ($ret == 0) { debug("Using system $p (tested).\n"); } else { - tlwarn("TeXLive::TLUtils::setup_programs failed.\n"); - tlwarn("Could not find a usable program for $p.\n"); + tlwarn("Initialization failed (in setup_unix_one):\n"); + tlwarn(" could not find a usable program for $p.\n"); return 0; } } else { |