From: Chip Turner <cturner@redhat.com>
Date: Mon, 2 Sep 2002 01:17:23 +0000 (-0400)
Subject: perldoc: allow arguments for pager
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f531d6eefef19d477e3a272a6e2b1422427ebde0;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 4159242..81e270c 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}