Assimilate PodParser-1.26

[p5sagit/p5-mst-13.2.git] / lib / Pod / PlainText.pm

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