From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 9 Apr 2001 12:35:58 +0000 (+0000)
Subject: Upgrade to podlators 1.09, from Russ Allbery.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ee89c1da88c2ddfac074e1b47880d8c2458656f4;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to podlators 1.09, from Russ Allbery.

p4raw-id: //depot/perl@9657
---

diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm
index 3103682..187c2ac 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 9936025..a0dab2d 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