diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-13 19:13:04 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-13 19:13:04 +0000 |
| commit | ba973abb2167d22cf71ef30581193c3aaa1d885d (patch) | |
| tree | 6082b3b31b32fb1e149feeb7235176abf69e7cea /utils | |
| parent | 73811745eab1cbdcd71a7f96d2ebef91be9e927a (diff) | |
| parent | c54e8273062a87ae6b235cfa92b11d4b2da434ab (diff) | |
| download | perl-ba973abb2167d22cf71ef30581193c3aaa1d885d.tar.gz | |
integrate cfgperl changes into mainline
p4raw-id: //depot/perl@4573
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index e0f276af94..760a0ce770 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; |