PodParser-1.093 update (from Brad Appleton's site)

p4raw-id: //depot/perl@5198

4 files changed, 63 insertions, 37 deletions

diff --git a/t/pod/poderrs.t b/t/pod/poderrs.t
index e27130ce39..bec2a198b6 100755
--- a/t/pod/poderrs.t
+++ b/t/pod/poderrs.t
@@ -36,6 +36,11 @@ Camps is very,
 entertaining.
 And they say we'll have some fun if it stops raining!
 
+Okay, now use a non-empty blank line to terminate a paragraph and make
+sure we get a warning.
+	                                     	
+The above blank line contains tabs and spaces only
+
 =head1 Additional tests
 
 =head2 item without over
diff --git a/t/pod/poderrs.xr b/t/pod/poderrs.xr
index 157d1306ba..038cf4fb4c 100644
--- a/t/pod/poderrs.xr
+++ b/t/pod/poderrs.xr
@@ -1,32 +1,33 @@
-*** ERROR: Unknown command "unknown1" at line 21 in file pod/poderrs.t
-*** ERROR: Unknown interior-sequence "Q" at line 25 in file pod/poderrs.t
-*** ERROR: Unknown interior-sequence "A" at line 26 in file pod/poderrs.t
-*** ERROR: Unknown interior-sequence "Y" at line 27 in file pod/poderrs.t
-*** ERROR: Unknown interior-sequence "V" at line 27 in file pod/poderrs.t
-** Unterminated B<...> at pod/poderrs.t line 31
-** Unterminated I<...> at pod/poderrs.t line 30
-** Unterminated C<...> at pod/poderrs.t line 33
-*** ERROR: =item without previous =over at line 43 in file pod/poderrs.t
-*** ERROR: =over on line 43 without closing =back (at head2) at line 45 in file pod/poderrs.t
-*** ERROR: =back without previous =over at line 47 in file pod/poderrs.t
-*** ERROR: =over on line 51 without closing =back (at head2) at line 55 in file pod/poderrs.t
-*** ERROR: =end without =begin at line 57 in file pod/poderrs.t
-*** ERROR: Nested =begin's (first at line 61:html) at line 63 in file pod/poderrs.t
-*** ERROR: =end without =begin at line 67 in file pod/poderrs.t
-*** ERROR: nested commands C<...C<...>...> at line 71 in file pod/poderrs.t
-*** ERROR: garbled entity E<alea iacta est> at line 75 in file pod/poderrs.t
-*** ERROR: garbled entity E<C<auml>> at line 76 in file pod/poderrs.t
-*** ERROR: garbled entity E<abcI<bla>> at line 77 in file pod/poderrs.t
-*** WARNING: collapsing newlines to blanks at line 87 in file pod/poderrs.t
-*** ERROR: malformed link L<> : empty link at line 89 in file pod/poderrs.t
-*** WARNING: section in `passwd(5)' deprecated at line 94 in file pod/poderrs.t
-*** WARNING: ignoring leading whitespace in link at line 95 in file pod/poderrs.t
-*** WARNING: ignoring trailing whitespace in link at line 95 in file pod/poderrs.t
-*** WARNING: Spurious character(s) after =back at line 101 in file pod/poderrs.t
-*** WARNING: No items in =over (at line 109) / =back list at line 111 in file pod/poderrs.t
-*** WARNING: 2 unescaped <> in paragraph at line 113 in file pod/poderrs.t
-*** ERROR: unresolved internal link `begin or begin' at line 81 in file pod/poderrs.t
-*** ERROR: unresolved internal link `end with begin' at line 82 in file pod/poderrs.t
-*** ERROR: unresolved internal link `OoPs' at line 83 in file pod/poderrs.t
-*** ERROR: unresolved internal link `abc def' at line 87 in file pod/poderrs.t
-pod/poderrs.t has 24 pod syntax errors.
+*** ERROR: Unknown command 'unknown1' at line 21 in file pod/poderrs.t
+*** ERROR: Unknown interior-sequence 'Q' at line 25 in file pod/poderrs.t
+*** ERROR: Unknown interior-sequence 'A' at line 26 in file pod/poderrs.t
+*** ERROR: Unknown interior-sequence 'Y' at line 27 in file pod/poderrs.t
+*** ERROR: Unknown interior-sequence 'V' at line 27 in file pod/poderrs.t
+*** WARNING: unterminated B<...> at line 31 in file pod/poderrs.t
+*** WARNING: unterminated I<...> at line 30 in file pod/poderrs.t
+*** WARNING: unterminated C<...> at line 33 in file pod/poderrs.t
+*** WARNING: line containing nothing but whitespace in paragraph at line 41 in file pod/poderrs.t
+*** ERROR: =item without previous =over at line 48 in file pod/poderrs.t
+*** ERROR: =back without previous =over at line 52 in file pod/poderrs.t
+*** ERROR: =over on line 56 without closing =back (at head2) at line 60 in file pod/poderrs.t
+*** ERROR: =end without =begin at line 62 in file pod/poderrs.t
+*** ERROR: Nested =begin's (first at line 66:html) at line 68 in file pod/poderrs.t
+*** ERROR: =end without =begin at line 72 in file pod/poderrs.t
+*** ERROR: nested commands C<...C<...>...> at line 76 in file pod/poderrs.t
+*** ERROR: garbled entity E<alea iacta est> at line 80 in file pod/poderrs.t
+*** ERROR: garbled entity E<C<auml>> at line 81 in file pod/poderrs.t
+*** 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
+*** WARNING: No items in =over (at line 114) / =back list at line 116 in file pod/poderrs.t
+*** WARNING: 2 unescaped <> in paragraph at line 118 in file pod/poderrs.t
+*** ERROR: unresolved internal link 'begin or begin' at line 86 in file pod/poderrs.t
+*** 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
+*** WARNING: multiple occurence of link target 'oops' at line - in file pod/poderrs.t
+pod/poderrs.t has 21 pod syntax errors.
diff --git a/t/pod/special_seqs.t b/t/pod/special_seqs.t
index 572fb8c061..b8af57ee05 100755
--- a/t/pod/special_seqs.t
+++ b/t/pod/special_seqs.t
@@ -17,10 +17,16 @@ __END__
 =pod
 
 This is a test to see if I can do not only C<$self> and C<method()>, but
-also C<$self->method()> and C<$self->{FIELDNAME}> and C<{FOO=>BAR}> without
-resorting to escape sequences.
+also C<< $self->method() >> and C<< $self->{FIELDNAME} >> and
+C<< $Foo <=> $Bar >> without resorting to escape sequences. If 
+I want to refer to the right-shift operator I can do something
+like C<<< $x >> 3 >>> or even C<<<< $y >> 5 >>>>.
 
-Now for the grand finale of C<$self->method()->{FIELDNAME} = {FOO=>BAR}>.
+Now for the grand finale of C<< $self->method()->{FIELDNAME} = {FOO=>BAR} >>.
+And I also want to make sure that newlines work like this
+C<<<
+$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]
+>>>
 
 Of course I should still be able to do all this I<with> escape sequences
 too: C<$self-E<gt>method()> and C<$self-E<gt>{FIELDNAME}> and C<{FOO=E<gt>BAR}>.
@@ -29,4 +35,9 @@ Dont forget C<$self-E<gt>method()-E<gt>{FIELDNAME} = {FOO=E<gt>BAR}>.
 
 And make sure that C<0> works too!
 
+Now, if I use << or >> as my delimiters, then I have to use whitespace.
+So things like C<<$self->method()>> and C<<$self->{FIELDNAME}>> wont end
+up doing what you might expect since the first > will still terminate
+the first < seen.
+
 =cut
diff --git a/t/pod/special_seqs.xr b/t/pod/special_seqs.xr
index fc06593d9d..a07f4cf417 100644
--- a/t/pod/special_seqs.xr
+++ b/t/pod/special_seqs.xr
@@ -1,8 +1,12 @@
     This is a test to see if I can do not only `$self' and `method()', but
-    also `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}' without
-    resorting to escape sequences.
+    also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar'
+    without resorting to escape sequences. If I want to refer to the
+    right-shift operator I can do something like `$x >> 3' or even `$y >>
+    5'.
 
     Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
+    And I also want to make sure that newlines work like this
+    `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]'
 
     Of course I should still be able to do all this *with* escape sequences
     too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'.
@@ -11,3 +15,8 @@
 
     And make sure that `0' works too!
 
+    Now, if I use << or >> as my delimiters, then I have to use whitespace.
+    So things like `<$self-'method()>> and `<$self-'{FIELDNAME}>> wont end
+    up doing what you might expect since the first > will still terminate
+    the first < seen.
+