summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-09-04 19:33:44 +0000
committerNorbert Preining <preining@logic.at>2010-09-04 19:33:44 +0000
commit0bb1636c1fd49d29990fa59bed27aefddcc1b7cf (patch)
treee93a76b4debffe8cc9e193b87b91d9b47de6016f
parente855ea6422c318861150967727e910164b409de7 (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
-rw-r--r--Master/texmf/scripts/texlive/NEWS7
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl6
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);