Change 17834 by [EMAIL PROTECTED] on 2002/09/04 13:08:36
perldoc: allow arguments for pager
Subject: perldoc patch for better $Config{pager} support, mandir patch, fhs
patch
From: Chip Turner <[EMAIL PROTECTED]>
Date: 02 Sep 2002 01:17:23 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/utils/perldoc.PL#70 edit
Differences ...
==== //depot/perl/utils/perldoc.PL#70 (text) ====
Index: perl/utils/perldoc.PL
--- perl/utils/perldoc.PL#69~17767~ Sun Aug 25 06:52:08 2002
+++ perl/utils/perldoc.PL Wed Sep 4 06:08:36 2002
@@ -42,7 +42,7 @@
$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}
End of Patch.
