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 (file)
--- 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}