This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
update PodParser to v1.10 (from Brad Appleton)
authorGurusamy Sarathy <gsar@cpan.org>
Fri, 25 Feb 2000 03:15:03 +0000 (03:15 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 25 Feb 2000 03:15:03 +0000 (03:15 +0000)
p4raw-id: //depot/perl@5252

lib/Pod/InputObjects.pm
lib/Pod/Parser.pm
lib/Pod/Select.pm
lib/Pod/Usage.pm
t/pod/poderrs.xr

index 174759a..7544fb7 100644 (file)
@@ -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
 
 #############################################################################
index bafabba..22b3e49 100644 (file)
@@ -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);
index 150dfca..230dc8f 100644 (file)
@@ -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
 
 #############################################################################
index 9f01a52..84a936e 100644 (file)
@@ -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
index 038cf4f..2848faa 100644 (file)
@@ -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.