diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-08-28 03:04:54 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-08-28 03:04:54 +0000 |
| commit | 40fc72471c3eb4c35a6e8cb489f8ad622f023634 (patch) | |
| tree | cef43e1808d0fb4a872ff14443f068703d6dd380 | |
| parent | cf35f3c155e210961881a70e00e6132b04502e13 (diff) | |
| download | perl-40fc72471c3eb4c35a6e8cb489f8ad622f023634.tar.gz | |
perl 5.003_04: utils/perldoc.PL
Use col -x to filter out half-line feeds (ESC-9) from
HP-UX nroff -man output. (col -x isn't portable -- SunOS
doesn't support the -x option.)
| -rw-r--r-- | utils/perldoc.PL | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index e53d542cb9..82e60add74 100644 --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@ -244,7 +244,11 @@ foreach (@found) { close(TMP); } elsif(not $opt_u) { open(TMP,">>$tmp"); - $rslt = `pod2man $_ | nroff -man`; + if($^O =~ /hpux/) { + $rslt = `pod2man $_ | nroff -man | col -x`; + } else { + $rslt = `pod2man $_ | nroff -man`; + } if ($Is_VMS) { $err = !($? % 2) || $rslt =~ /IVVERB/; } else { $err = $?; } print TMP $rslt unless $err; @@ -293,10 +297,11 @@ B<perldoc> [B<-h>] [B<-v>] [B<-t>] [B<-u>] PageName|ModuleName|ProgramName =head1 DESCRIPTION -I<perldoc> looks up a piece of documentation in .pod format that is -embedded in the perl installation tree or in a perl script, and displays -it via pod2man | nroff -man | $PAGER. This is primarily used for the -documentation for the perl library modules. +I<perldoc> looks up a piece of documentation in .pod format that is embedded +in the perl installation tree or in a perl script, and displays it via +C<pod2man | nroff -man | $PAGER>. (In addition, if running under HP-UX, +C<col -x> will be used.) This is primarily used for the documentation for +the perl library modules. Your system may also have man pages installed for those modules, in which case you can probably just use the man(1) command. |