diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-02-07 20:47:25 -0600 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-07 20:47:25 -0600 |
| commit | 9430eed93032653631f34ee1bcdc2588e213f34b (patch) | |
| tree | 75f0c5b9c542b07578c5add09a5d89df4c6ba1da /pod/pod2man.PL | |
| parent | 791fa977ed01e97d886a14026049b60f85634a39 (diff) | |
| download | perl-9430eed93032653631f34ee1bcdc2588e213f34b.tar.gz | |
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 ]
Diffstat (limited to 'pod/pod2man.PL')
| -rw-r--r-- | pod/pod2man.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index 3b6c1f8baa..0478a0b93b 100644 --- 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 |