Assimilate PodParser-1.26

p4raw-id: //depot/perl@21975

diff --git a/lib/Pod/Checker.pm b/lib/Pod/Checker.pm
index 824178f..78e27c4 100644 (file)
--- a/lib/Pod/Checker.pm
+++ b/lib/Pod/Checker.pm
@@ -1254,8 +1254,10 @@ __END__
 
 =head1 AUTHOR
 
+Please report bugs using L<http://rt.cpan.org>.
+
 Brad Appleton E<lt>bradapp@enteract.comE<gt> (initial version),
-Marek Rouchal E<lt>marek@saftsack.fs.uni-bayreuth.deE<gt>
+Marek Rouchal E<lt>marekr@cpan.orgE<gt>
 
 Based on code for B<Pod::Text::pod2text()> written by
 Tom Christiansen E<lt>tchrist@mox.perl.comE<gt>

diff --git a/lib/Pod/Find.pm b/lib/Pod/Find.pm
index e18d976..21af123 100644 (file)
--- a/lib/Pod/Find.pm
+++ b/lib/Pod/Find.pm
@@ -1,7 +1,7 @@
 #############################################################################  
 # Pod/Find.pm -- finds files containing POD documentation
 #
-# Author: Marek Rouchal <marek@saftsack.fs.uni-bayreuth.de>
+# Author: Marek Rouchal <marekr@cpan.org>
 # 
 # Copyright (C) 1999-2000 by Marek Rouchal (and borrowing code
 # from Nick Ing-Simmon's PodToHtml). All rights reserved.
@@ -498,7 +498,9 @@ sub contains_pod {
 
 =head1 AUTHOR
 
-Marek Rouchal E<lt>marek@saftsack.fs.uni-bayreuth.deE<gt>,
+Please report bugs using L<http://rt.cpan.org>.
+
+Marek Rouchal E<lt>marekr@cpan.orgE<gt>,
 heavily borrowing code from Nick Ing-Simmons' PodToHtml.
 
 Tim Jenness E<lt>t.jenness@jach.hawaii.eduE<gt> provided

diff --git a/lib/Pod/InputObjects.pm b/lib/Pod/InputObjects.pm
index 9cd347b..d895b10 100644 (file)
--- a/lib/Pod/InputObjects.pm
+++ b/lib/Pod/InputObjects.pm
@@ -932,6 +932,8 @@ See L<Pod::Parser>, L<Pod::Select>
 
 =head1 AUTHOR
 
+Please report bugs using L<http://rt.cpan.org>.
+
 Brad Appleton E<lt>bradapp@enteract.comE<gt>
 
 =cut

diff --git a/lib/Pod/ParseUtils.pm b/lib/Pod/ParseUtils.pm
index 18e9626..cb784a1 100644 (file)
--- a/lib/Pod/ParseUtils.pm
+++ b/lib/Pod/ParseUtils.pm
@@ -836,7 +836,9 @@ sub idx {
 
 =head1 AUTHOR
 
-Marek Rouchal E<lt>marek@saftsack.fs.uni-bayreuth.deE<gt>, borrowing
+Please report bugs using L<http://rt.cpan.org>.
+
+Marek Rouchal E<lt>marekr@cpan.orgE<gt>, borrowing
 a lot of things from L<pod2man> and L<pod2roff> as well as other POD
 processing tools by Tom Christiansen, Brad Appleton and Russ Allbery.
 

diff --git a/lib/Pod/Parser.pm b/lib/Pod/Parser.pm
index 456b515..d12e016 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.13;  ## Current version of this package
+$VERSION = 1.14;  ## Current version of this package
 require  5.005;    ## requires this Perl version or later
 
 #############################################################################
@@ -1764,6 +1764,8 @@ causing any namespace clashes due to multiple inheritance.
 
 =head1 AUTHOR
 
+Please report bugs using L<http://rt.cpan.org>.
+
 Brad Appleton E<lt>bradapp@enteract.comE<gt>
 
 Based on code for B<Pod::Text> written by

diff --git a/lib/Pod/PlainText.pm b/lib/Pod/PlainText.pm
index 4250ebb..3f5ce90 100644 (file)
--- a/lib/Pod/PlainText.pm
+++ b/lib/Pod/PlainText.pm
@@ -29,7 +29,7 @@ use vars qw(@ISA %ESCAPES $VERSION);
 # by Pod::Usage.
 @ISA = qw(Pod::Select);
 
-($VERSION = (split (' ', q$Revision: 2.1 $ ))[1]) =~ s/\.(\d)$/.0$1/;
+$VERSION = '2.02';
 
 
 ############################################################################
@@ -396,7 +396,10 @@ sub seq_l {
     # something looking like L<manpage(section)>.  The latter is an
     # enhancement over the original Pod::Text.
     my ($manpage, $section) = ('', $_);
-    if (/^"\s*(.*?)\s*"$/) {
+    if (/^(?:https?|ftp|news):/) {
+        # a URL
+        return $_;
+    } elsif (/^"\s*(.*?)\s*"$/) {
         $section = '"' . $1 . '"';
     } elsif (m/^[-:.\w]+(?:\(\S+\))?$/) {
         ($manpage, $section) = ($_, '');
@@ -404,8 +407,8 @@ sub seq_l {
         ($manpage, $section) = split (/\s*\/\s*/, $_, 2);
     }
 
-    # Now build the actual output text.
     my $text = '';
+    # Now build the actual output text.
     if (!length $section) {
         $text = "the $manpage manpage" if length $manpage;
     } elsif ($section =~ /^[:\w]+(?:\(\))?/) {
@@ -692,6 +695,8 @@ pod2text(1)
 
 =head1 AUTHOR
 
+Please report bugs using L<http://rt.cpan.org>.
+
 Russ Allbery E<lt>rra@stanford.eduE<gt>, based I<very> heavily on the
 original Pod::Text by Tom Christiansen E<lt>tchrist@mox.perl.comE<gt> and
 its conversion to Pod::Parser by Brad Appleton

diff --git a/lib/Pod/Select.pm b/lib/Pod/Select.pm
index 8310ea6..8b98544 100644 (file)
--- a/lib/Pod/Select.pm
+++ b/lib/Pod/Select.pm
@@ -740,6 +740,8 @@ L<Pod::Parser>
 
 =head1 AUTHOR
 
+Please report bugs using L<http://rt.cpan.org>.
+
 Brad Appleton E<lt>bradapp@enteract.comE<gt>
 
 Based on code for B<pod2text> written by

diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm
index 63c7007..f363b3a 100644 (file)
--- a/lib/Pod/Usage.pm
+++ b/lib/Pod/Usage.pm
@@ -381,6 +381,8 @@ similar to the following:
 
 =head1 AUTHOR
 
+Please report bugs using L<http://rt.cpan.org>.
+
 Brad Appleton E<lt>bradapp@enteract.comE<gt>
 
 Based on code for B<Pod::Text::pod2text()> written by

diff --git a/pod/pod2usage.PL b/pod/pod2usage.PL
index 6df5062..1b14c17 100644 (file)
--- a/pod/pod2usage.PL
+++ b/pod/pod2usage.PL
@@ -125,6 +125,8 @@ L<Pod::Usage>, L<pod2text(1)>
 
 =head1 AUTHOR
 
+Please report bugs using L<http://rt.cpan.org>.
+
 Brad Appleton E<lt>bradapp@enteract.comE<gt>
 
 Based on code for B<pod2text(1)> written by

diff --git a/pod/podselect.PL b/pod/podselect.PL
index d3e204e..138e076 100644 (file)
--- a/pod/podselect.PL
+++ b/pod/podselect.PL
@@ -98,6 +98,8 @@ L<Pod::Parser> and L<Pod::Select>
 
 =head1 AUTHOR
 
+Please report bugs using L<http://rt.cpan.org>.
+
 Brad Appleton E<lt>bradapp@enteract.comE<gt>
 
 Based on code for B<Pod::Text::pod2text(1)> written by

diff --git a/t/pod/pod2usage.xr b/t/pod/pod2usage.xr
index 7315d40..da24830 100644 (file)
--- a/t/pod/pod2usage.xr
+++ b/t/pod/pod2usage.xr
@@ -47,6 +47,8 @@ SEE ALSO
     the Pod::Usage manpage, the pod2text(1) manpage
 
 AUTHOR
+    Please report bugs using http://rt.cpan.org.
+
     Brad Appleton <bradapp@enteract.com>
 
     Based on code for pod2text(1) written by Tom Christiansen

diff --git a/t/pod/podselect.xr b/t/pod/podselect.xr
index 7d1188d..c288e91 100644 (file)
--- a/t/pod/podselect.xr
+++ b/t/pod/podselect.xr
@@ -34,6 +34,8 @@ SEE ALSO
     the Pod::Parser manpage and the Pod::Select manpage
 
 AUTHOR
+    Please report bugs using http://rt.cpan.org.
+
     Brad Appleton <bradapp@enteract.com>
 
     Based on code for Pod::Text::pod2text(1) written by Tom Christiansen