diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-09 12:35:58 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-09 12:35:58 +0000 |
| commit | ee89c1da88c2ddfac074e1b47880d8c2458656f4 (patch) | |
| tree | 8c4dcbdb2a030611db6e8dacf599ccf7ce36b25e /lib | |
| parent | 7221edc9750be886310d7277b3cbdafafc49218c (diff) | |
| download | perl-ee89c1da88c2ddfac074e1b47880d8c2458656f4.tar.gz | |
Upgrade to podlators 1.09, from Russ Allbery.
p4raw-id: //depot/perl@9657
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Man.pm | 20 | ||||
| -rw-r--r-- | lib/Pod/Text.pm | 12 |
2 files changed, 16 insertions, 16 deletions
diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm index 31036826b9..187c2aca86 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 1.15 2001/02/10 06:50:22 eagle Exp $ +# $Id: Man.pm,v 1.16 2001/04/09 13:06:02 eagle Exp $ # # Copyright 1999, 2000, 2001 by Russ Allbery <rra@stanford.edu> # @@ -38,7 +38,7 @@ use vars qw(@ISA %ESCAPES $PREAMBLE $VERSION); # Perl core and too many things could munge CVS magic revision strings. # This number should ideally be the same as the CVS revision in podlators, # however. -$VERSION = 1.15; +$VERSION = 1.16; ############################################################################ @@ -971,7 +971,7 @@ sub guesswork { s{ ( ^ | [\s\(\"\'\`\[\{<>] ) ( [A-Z] [A-Z] [/A-Z+:\d_\$&-]* ) - (?: (?= [\s>\}\]\)\'\".?!,;:] | -- ) | $ ) + (?: (?= [\s>\}\]\(\)\'\".?!,;] | -- ) | $ ) } { $1 . '\s-1' . $2 . '\s0' }egx; # Turn PI into a pretty pi. @@ -979,20 +979,20 @@ sub guesswork { # Italize functions in the form func(). s{ - \b + ( \b | \\s-1 ) ( - [:\w]+ (?:\\s-1)? \(\) + [A-Za-z_] ([:\w]|\\s-?[01])+ \(\) ) - } { '\f(IS' . $1 . '\f(IE' }egx; + } { $1 . '\f(IS' . $2 . '\f(IE' }egx; # func(n) is a reference to a manual page. Make it \fIfunc\fR\|(n). s{ - \b - (\w[-:.\w]+ (?:\\s-1)?) + ( \b | \\s-1 ) + ( [A-Za-z_] (?:[-:.\w]|\\s-?[01])+ ) ( - \( [^\)] \) + \( \d [a-z]* \) ) - } { '\f(IS' . $1 . '\f(IE\|' . $2 }egx; + } { $1 . '\f(IS' . $2 . '\f(IE\|' . $3 }egx; # Convert simple Perl variable references to a fixed-width font. s{ diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm index 9936025101..a0dab2d6d2 100644 --- a/lib/Pod/Text.pm +++ b/lib/Pod/Text.pm @@ -1,5 +1,5 @@ # Pod::Text -- Convert POD data to formatted ASCII text. -# $Id: Text.pm,v 2.8 2001/02/10 06:50:23 eagle Exp $ +# $Id: Text.pm,v 2.9 2001/04/09 13:00:50 eagle Exp $ # # Copyright 1999, 2000, 2001 by Russ Allbery <rra@stanford.edu> # @@ -37,7 +37,7 @@ use vars qw(@ISA @EXPORT %ESCAPES $VERSION); # Perl core and too many things could munge CVS magic revision strings. # This number should ideally be the same as the CVS revision in podlators, # however. -$VERSION = 2.08; +$VERSION = 2.09; ############################################################################ @@ -82,12 +82,12 @@ $VERSION = 2.08; "eth" => "\xF0", # small eth, Icelandic "Euml" => "\xCB", # capital E, dieresis or umlaut mark "euml" => "\xEB", # small e, dieresis or umlaut mark - "Iacute" => "\xCC", # capital I, acute accent - "iacute" => "\xEC", # small i, acute accent + "Iacute" => "\xCD", # capital I, acute accent + "iacute" => "\xED", # small i, acute accent "Icirc" => "\xCE", # capital I, circumflex accent "icirc" => "\xEE", # small i, circumflex accent - "Igrave" => "\xCD", # capital I, grave accent - "igrave" => "\xED", # small i, grave accent + "Igrave" => "\xCC", # capital I, grave accent + "igrave" => "\xEC", # small i, grave accent "Iuml" => "\xCF", # capital I, dieresis or umlaut mark "iuml" => "\xEF", # small i, dieresis or umlaut mark "Ntilde" => "\xD1", # capital N, tilde |