From: Bernard Quatermass <bernard@quatermass.co.uk>
Date: Fri, 12 Nov 1999 23:11:43 +0000 (+0000)
Subject: small patch for perldoc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a85d71bc598e6f8a919997b62e4449e29d1fbb95;p=p5sagit%2Fp5-mst-13.2.git

small patch for perldoc

To: perl5-porters@perl.org
Message-Id: <VA.0000001c.00d1e05a@quatermass.co.uk>

p4raw-id: //depot/cfgperl@4566
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index e0f276a..760a0ce 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -51,7 +51,7 @@ if (@ARGV<1) {
 	my $me = $0;		# Editing $0 is unportable
 	$me =~ s,.*/,,;
 	die <<EOF;
-Usage: $me [-h] [-r] [-i] [-v] [-t] [-u] [-m] [-l] [-F] [-X] PageName|ModuleName|ProgramName
+Usage: $me [-h] [-r] [-i] [-v] [-t] [-u] [-m] [-n program] [-l] [-F] [-X] PageName|ModuleName|ProgramName
        $me -f PerlFunc
        $me -q FAQKeywords
 
@@ -87,6 +87,7 @@ Options:
              (-t is the default on win32)
     -u	 Display unformatted pod text
     -m   Display module's file in its entirety
+    -n   Specify replacement for nroff
     -l   Display the module's file name
     -F   Arguments are file names, not modules
     -v	 Verbosely describe what's going on
@@ -121,7 +122,7 @@ if (defined $ENV{"PERLDOC"}) {
 }
 !NO!SUBS!
 
-my $getopts = "mhtluvriFf:Xq:";
+my $getopts = "mhtluvriFf:Xq:n:";
 print OUT <<"!GET!OPTS!";
 
 use vars qw( @{[map "\$opt_$_", ($getopts =~ /\w/g)]} );
@@ -132,6 +133,7 @@ getopts("$getopts") || usage;
 print OUT <<'!NO!SUBS!';
 
 usage if $opt_h;
+$opt_n = "nroff" if !$opt_n;
 
 my $podidx;
 if ($opt_X) {
@@ -321,7 +323,7 @@ sub printout {
 	close OUT;
     }
     elsif (not $opt_u) {
-	my $cmd = "pod2man --lax $file | nroff -man";
+	my $cmd = "pod2man --lax $_ | $opt_n -man";
 	$cmd .= " | col -x" if $^O =~ /hpux/;
 	my $rslt = `$cmd`;
 	$rslt = filter_nroff($rslt) if $filter;