diff options
| author | Norbert Preining <preining@logic.at> | 2012-09-04 23:10:59 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2012-09-04 23:10:59 +0000 |
| commit | 596830f68da6c5da9a238f08b2b2b4f60f162893 (patch) | |
| tree | 268ab941a8b13ffe9d021b603617fa2bb198ae93 /Master/texmf | |
| parent | a0fb1a4d69667793af3cff54f71b5c01ad5434c1 (diff) | |
make sure perldoc is also working and not only present
git-svn-id: svn://tug.org/texlive/trunk@27594 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index 2ddc7753e26..94621dbab38 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -280,8 +280,24 @@ sub main { # But not all Unix platforms have it, and on Windows our Config.pm # can apparently interfere, so always skip it there. my @noperldoc = (); - if (win32() || ! TeXLive::TLUtils::which("perldoc")) { + if (win32()) { @noperldoc = ("-noperldoc", "1"); + } else { + if (!TeXLive::TLUtils::which("perldoc")) { + @noperldoc = ("-noperldoc", "1"); + } else { + # checking only for the existence of perldoc is not enough + # because stupid Debian/Ubuntu ships a stub that does nothing + # which is very very bad idea + # try to check for that, too + my $ret = system("perldoc -V > /dev/null 2>&1"); + if ($ret == 0) { + debug("Working perldoc found, using it.\n"); + } else { + tlwarn("Your perldoc seems to be non functional!\n"); + @noperldoc = ("-noperldoc", "1"); + } + } } # in some cases LESSPIPE of less breaks control characters # and the output of pod2usage is broken. |