update PodParser to v1.10 (from Brad Appleton)

p4raw-id: //depot/perl@5252

diff --git a/lib/Pod/InputObjects.pm b/lib/Pod/InputObjects.pm
index 174759a..7544fb7 100644 (file)
--- a/lib/Pod/InputObjects.pm
+++ b/lib/Pod/InputObjects.pm
@@ -11,7 +11,7 @@
 package Pod::InputObjects;
 
 use vars qw($VERSION);
-$VERSION = 1.093;  ## Current version of this package
+$VERSION = 1.10;  ## Current version of this package
 require  5.004;    ## requires this Perl version or later
 
 #############################################################################

diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm
index bafabba..22b3e49 100644 (file)
--- a/lib/Pod/Parser.pm
+++ b/lib/Pod/Parser.pm
@@ -10,7 +10,7 @@
 package Pod::Parser;
 
 use vars qw($VERSION);
-$VERSION = 1.093;  ## Current version of this package
+$VERSION = 1.10;  ## Current version of this package
 require  5.004;    ## requires this Perl version or later
 
 #############################################################################
@@ -764,13 +764,13 @@ sub parse_text {
     my @seq_stack = ($seq);
     my ($ldelim, $rdelim) = ('', '');
 
-    ## Iterate over all sequence starts/stops, newlines, & text
-    ## (NOTE: split with capturing parens keeps the delimiters)
+    ## Iterate over all sequence starts text (NOTE: split with
+    ## capturing parens keeps the delimiters)
     $_ = $text;
     my @tokens = split /([A-Z]<(?:<+\s+)?)/;
     while ( @tokens ) {
         $_ = shift @tokens;
-        ## Look for the beginning of a sequencd
+        ## Look for the beginning of a sequence
         if ( /^([A-Z])(<(?:<+\s+)?)$/ ) {
             ## Push a new sequence onto the stack of those "in-progress"
             ($cmd, $ldelim) = ($1, $2);

diff --git a/lib/Pod/Select.pm b/lib/Pod/Select.pm
index 150dfca..230dc8f 100644 (file)
--- a/lib/Pod/Select.pm
+++ b/lib/Pod/Select.pm
@@ -10,7 +10,7 @@
 package Pod::Select;
 
 use vars qw($VERSION);
-$VERSION = 1.093;  ## Current version of this package
+$VERSION = 1.10;  ## Current version of this package
 require  5.004;    ## requires this Perl version or later
 
 #############################################################################

diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm
index 9f01a52..84a936e 100644 (file)
--- a/lib/Pod/Usage.pm
+++ b/lib/Pod/Usage.pm
@@ -10,7 +10,7 @@
 package Pod::Usage;
 
 use vars qw($VERSION);
-$VERSION = 1.093;  ## Current version of this package
+$VERSION = 1.10;  ## Current version of this package
 require  5.004;    ## requires this Perl version or later
 
 =head1 NAME

diff --git a/t/pod/poderrs.xr b/t/pod/poderrs.xr
index 038cf4f..2848faa 100644 (file)
--- a/t/pod/poderrs.xr
+++ b/t/pod/poderrs.xr
@@ -19,7 +19,6 @@
 *** ERROR: garbled entity E<abcI<bla>> at line 82 in file pod/poderrs.t
 *** WARNING: collapsing newlines to blanks at line 92 in file pod/poderrs.t
 *** ERROR: malformed link L<> : empty link at line 94 in file pod/poderrs.t
-*** WARNING: section in 'passwd(5)' deprecated at line 99 in file pod/poderrs.t
 *** WARNING: ignoring leading whitespace in link at line 100 in file pod/poderrs.t
 *** WARNING: ignoring trailing whitespace in link at line 100 in file pod/poderrs.t
 *** ERROR: Spurious character(s) after =back at line 106 in file pod/poderrs.t
@@ -29,5 +28,6 @@
 *** ERROR: unresolved internal link 'end with begin' at line 87 in file pod/poderrs.t
 *** ERROR: unresolved internal link 'OoPs' at line 88 in file pod/poderrs.t
 *** ERROR: unresolved internal link 'abc def' at line 92 in file pod/poderrs.t
+*** ERROR: unresolved internal link 'passwd(5)' at line 99 in file pod/poderrs.t
 *** WARNING: multiple occurence of link target 'oops' at line - in file pod/poderrs.t
-pod/poderrs.t has 21 pod syntax errors.
+pod/poderrs.t has 22 pod syntax errors.