From: Perl 5 Porters Date: Thu, 8 Feb 1996 02:47:25 +0000 (-0600) Subject: perl 5.002gamma: pod/pod2man.PL X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9430eed93032653631f34ee1bcdc2588e213f34b;p=p5sagit%2Fp5-mst-13.2.git perl 5.002gamma: pod/pod2man.PL >From Richard_Ohnemus@dallas.csd.sterling.comThu Feb 8 10:09:31 1996 >Date: Wed, 7 Feb 1996 20:47:25 -0600 (CST) >From: Richard Ohnemus >To: perl5-porters@africa.nicoh.com >Subject: small bug in pod2man pod2man will generate incorrect man pages if the pod file name has more than 1 dot ('.') in it. >From kjahds@kjahds.comFri Feb 9 12:56:50 1996 >Date: Fri, 9 Feb 1996 12:06:23 -0500 (EST) >From: Kenneth Albanowski >To: Peter Wolfe >Cc: tchrist@mox.perl.com, roderick@gate.net, doughera@lafcol.lafayette.edu, > perl5-porters@africa.nicoh.com >Subject: Re: pod2man patch [Fixes .bd command ] --- diff --git a/pod/pod2man.PL b/pod/pod2man.PL index 3b6c1f8..0478a0b 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -389,7 +389,7 @@ $wanna_see{SYNOPSIS}++ if $section =~ /^3/; $name = @ARGV ? $ARGV[0] : ""; $Filename = $name; $name = uc($name) if $section =~ /^1/; -$name =~ s/\..*//; +$name =~ s/\.[^.]*$//; if ($name ne 'something') { FCHECK: { @@ -519,7 +519,7 @@ print <<'END'; .. .\" @(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2 . \" AM - accent mark definitions -.bd S B 3 +.bd B 3 . \" fudge factors for nroff and troff .if n \{\ . ds #H 0