summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-09-04 23:10:59 +0000
committerNorbert Preining <preining@logic.at>2012-09-04 23:10:59 +0000
commit596830f68da6c5da9a238f08b2b2b4f60f162893 (patch)
tree268ab941a8b13ffe9d021b603617fa2bb198ae93 /Master/texmf
parenta0fb1a4d69667793af3cff54f71b5c01ad5434c1 (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-xMaster/texmf/scripts/texlive/tlmgr.pl18
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.