diff options
| author | Norbert Preining <preining@logic.at> | 2010-09-04 19:33:44 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2010-09-04 19:33:44 +0000 |
| commit | 0bb1636c1fd49d29990fa59bed27aefddcc1b7cf (patch) | |
| tree | e93a76b4debffe8cc9e193b87b91d9b47de6016f /Master/texmf | |
| parent | e855ea6422c318861150967727e910164b409de7 (diff) | |
tlmgr: set LESS='-R' and unset LESSOPEN and LESSPIPE in the environment
before calling pod2usage.
git-svn-id: svn://tug.org/texlive/trunk@19582 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
| -rw-r--r-- | Master/texmf/scripts/texlive/NEWS | 7 | ||||
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 6 |
2 files changed, 12 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/NEWS b/Master/texmf/scripts/texlive/NEWS index 5b9c608e29e..e7c49bfe5c4 100644 --- a/Master/texmf/scripts/texlive/NEWS +++ b/Master/texmf/scripts/texlive/NEWS @@ -1,7 +1,12 @@ (This file public domain. Originally written by Norbert Preining and Karl Berry, 2010.) -tlmgr rev next (YYYY-MM-DD) +tlmgr rev NEXT (YYYY-MM-DD) + +<li>set LESS='-R' and unset LESSOPEN and LESSPIPE in the environment + before calling pod2usage. + +tlmgr rev 19414 (TeX Live 2010 Release Version) <li>implement download selection mode in the file <tt>TEXMFCONFIG/tlmgr/config</tt> diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 2ec87b4899e..fc08a287f03 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -258,6 +258,12 @@ sub main { if (win32() || ! TeXLive::TLUtils::which("perldoc")) { @noperldoc = ("-noperldoc", "1"); } + # in some cases LESSPIPE of less breaks control characters + # and the output of pod2usage is broken. + # We set LESS=-R in the environment and unset LESSPIPE to be sure + $ENV{'LESS'} = "-R"; + delete $ENV{'LESSPIPE'}; + delete $ENV{'LESSOPEN'}; if ($action && ($action ne "help")) { pod2usage(-exitstatus => 0, -verbose => 99, -sections => "NAME|SYNOPSIS|ACTIONS/$action.*" , @noperldoc); |