summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorChip Turner <cturner@redhat.com>2002-09-01 21:17:23 -0400
committerhv <hv@crypt.org>2002-09-04 13:08:36 +0000
commitf531d6eefef19d477e3a272a6e2b1422427ebde0 (patch)
tree9bb979b912d6681e74ad85b4ad38271d6d3e509d /utils
parent5311654c160c66b924ce3fd64ced30ed3ff8a96b (diff)
downloadperl-f531d6eefef19d477e3a272a6e2b1422427ebde0.tar.gz
perldoc: allow arguments for pager
Subject: perldoc patch for better $Config{pager} support, mandir patch, fhs patch Message-ID: <vzku1l9x95o.fsf@minbar.devel.redhat.com> p4raw-id: //depot/perl@17834
Diffstat (limited to 'utils')
-rw-r--r--utils/perldoc.PL2
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 4159242884..81e270c0de 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -42,7 +42,7 @@ INIT { eval { umask(0077) } } # doubtless someone has no mask
$Config{pager}
/../
my \@pagers = ();
-push \@pagers, \$pager if -x \$pager;
+push \@pagers, \$pager if -x (split /\\s+/, \$pager)[0];
(my \$bindir = <<'/../') =~ s/\\s*\\z//;
$Config{scriptdirexp}