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 <Richard_Ohnemus@dallas.csd.sterling.com>
>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 <kjahds@kjahds.com>
>To: Peter Wolfe <wolfe@teloseng.com>
>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 (file)
--- a/pod/pod2man.PL
+++ b/pod/pod2man.PL
@@ -389,7 +389,7 @@ $wanna_see{SYNOPSIS}++ if $section =~ /^3/;
 $name = @ARGV ? $ARGV[0] : "<STDIN>";
 $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