diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-07 15:12:24 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-07 15:12:24 +0000 |
| commit | 2e20e14f06deb037c08540fe454d89e37322092d (patch) | |
| tree | 45bf642ee56e44754871aea0496c0054a0e66286 /lib/Pod/Man.pm | |
| parent | b7c82df9d191173c7307ea4909787c2bf0058fe6 (diff) | |
| download | perl-2e20e14f06deb037c08540fe454d89e37322092d.tar.gz | |
update to podlators-0.08 from Russ Allbery
p4raw-id: //depot/perl@4307
Diffstat (limited to 'lib/Pod/Man.pm')
| -rw-r--r-- | lib/Pod/Man.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm index 7a1c69f5a9..a85fba538c 100644 --- a/lib/Pod/Man.pm +++ b/lib/Pod/Man.pm @@ -1,5 +1,5 @@ # Pod::Man -- Convert POD data to formatted *roff input. -# $Id: Man.pm,v 0.5 1999/09/25 19:49:49 eagle Exp $ +# $Id: Man.pm,v 0.8 1999/10/07 09:39:37 eagle Exp $ # # Copyright 1999 by Russ Allbery <rra@stanford.edu> # @@ -28,7 +28,7 @@ use vars qw(@ISA %ESCAPES $PREAMBLE $VERSION); @ISA = qw(Pod::Parser); -($VERSION = (split (' ', q$Revision: 0.5 $ ))[1]) =~ s/\.(\d)$/.0$1/; +($VERSION = (split (' ', q$Revision: 0.8 $ ))[1]) =~ s/\.(\d)$/.0$1/; ############################################################################ @@ -525,7 +525,9 @@ sub sequence { # Handle E<> escapes. if ($command eq 'E') { - if (exists $ESCAPES{$_}) { + if (/^\d+$/) { + return bless \ chr ($_), 'Pod::Man::String'; + } elsif (exists $ESCAPES{$_}) { return bless \ "$ESCAPES{$_}", 'Pod::Man::String'; } else { carp "Unknown escape E<$1>"; @@ -745,7 +747,8 @@ sub buildlink { $text .= (length $manpage) ? " in $manpage" : " elsewhere in this document"; } else { - $text .= 'the section on "' . $section . '"'; + if ($section !~ /^".*"$/) { $section = '"' . $section . '"' } + $text .= 'the section on ' . $section; $text .= " in $manpage" if length $manpage; } $text; |