diff options
| author | Chip Turner <cturner@redhat.com> | 2002-09-01 21:17:23 -0400 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-04 13:08:36 +0000 |
| commit | f531d6eefef19d477e3a272a6e2b1422427ebde0 (patch) | |
| tree | 9bb979b912d6681e74ad85b4ad38271d6d3e509d /utils/perldoc.PL | |
| parent | 5311654c160c66b924ce3fd64ced30ed3ff8a96b (diff) | |
| download | perl-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/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 2 |
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} |