From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Wed, 28 Aug 1996 03:04:54 +0000 (+0000)
Subject: perl 5.003_04: utils/perldoc.PL
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40fc72471c3eb4c35a6e8cb489f8ad622f023634;p=p5sagit%2Fp5-mst-13.2.git

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.)
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index e53d542..82e60ad 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.