diff options
author | Karl Berry <karl@freefriends.org> | 2008-10-22 23:34:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-10-22 23:34:39 +0000 |
commit | aff4a0a9550d57eff7ec5e3b40c5288da7b124b8 (patch) | |
tree | 2d8fb2d6594716b2a6b0dee37da912ea7504b056 /Master/tlpkg/TeXLive | |
parent | a07631bcbb6aaa84384dcb8eb0529ddb49d79c12 (diff) |
TLMedia.pm: message capitalizations.
TLUtils.pm (kpsewhich): remove this function,
since '...' fails on Windows. From Ruben Prins,
22 Oct 2008 23:53:37.
tlmgr.pl: change the two calls to kpsewhich() to
use direct `kpsewhich -var-value=...` invocations,
as is done everywhere else. (Also use "re" in
logging reinstalls, and msg changes.)
Maybe someday we will write a kpse_var_value
function to be used everywhere and checks its
argument so the single quotes can be safely omitted.
git-svn-id: svn://tug.org/texlive/trunk@11029 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 4 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 20 |
2 files changed, 3 insertions, 21 deletions
diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index 94188f5c0fa..78234641097 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -100,11 +100,11 @@ sub install_package { debug("installed $pkg from fallback"); return $ret; } else { - tlwarn("$0: cannot find package $pkg (in fallback, either)\n"); + tlwarn("$0: Cannot find package $pkg (in fallback, either)\n"); return 0; } } else { - tlwarn("$0: cannot find package $pkg\n"); + tlwarn("$0: Cannot find package $pkg\n"); return 0; } } else { diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 3c6ff203103..e501337f545 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1573,27 +1573,9 @@ sub process_logging_options { =pod - -=item C<kpsewhich($varname)> - -This function expands the variable name using C<kpsewhich --var-value>. The variable name should not have a leading $. The -C<kpsewhich> binary has to be in the path. - -=cut - -sub kpsewhich { - my $var = shift; - my $ret = `kpsewhich -var-value='$var'`; - chomp ($ret); - return $ret; -} - -=pod - =item C<welcome> -The welcome message. +Return the welcome message. =cut |