From: Nicholas Clark Date: Sat, 27 Dec 2003 18:12:33 +0000 (+0000) Subject: Assimilate PodParser-1.26 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aaa799f9f94038e03b6fe1069e18029f5c7fdb32;p=p5sagit%2Fp5-mst-13.2.git 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 --- a/lib/Pod/Checker.pm +++ b/lib/Pod/Checker.pm @@ -1254,8 +1254,10 @@ __END__ =head1 AUTHOR +Please report bugs using L. + Brad Appleton Ebradapp@enteract.comE (initial version), -Marek Rouchal Emarek@saftsack.fs.uni-bayreuth.deE +Marek Rouchal Emarekr@cpan.orgE Based on code for B written by Tom Christiansen Etchrist@mox.perl.comE diff --git a/lib/Pod/Find.pm b/lib/Pod/Find.pm index e18d976..21af123 100644 --- 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 +# Author: Marek Rouchal # # 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 Emarek@saftsack.fs.uni-bayreuth.deE, +Please report bugs using L. + +Marek Rouchal Emarekr@cpan.orgE, heavily borrowing code from Nick Ing-Simmons' PodToHtml. Tim Jenness Et.jenness@jach.hawaii.eduE provided diff --git a/lib/Pod/InputObjects.pm b/lib/Pod/InputObjects.pm index 9cd347b..d895b10 100644 --- a/lib/Pod/InputObjects.pm +++ b/lib/Pod/InputObjects.pm @@ -932,6 +932,8 @@ See L, L =head1 AUTHOR +Please report bugs using L. + Brad Appleton Ebradapp@enteract.comE =cut diff --git a/lib/Pod/ParseUtils.pm b/lib/Pod/ParseUtils.pm index 18e9626..cb784a1 100644 --- a/lib/Pod/ParseUtils.pm +++ b/lib/Pod/ParseUtils.pm @@ -836,7 +836,9 @@ sub idx { =head1 AUTHOR -Marek Rouchal Emarek@saftsack.fs.uni-bayreuth.deE, borrowing +Please report bugs using L. + +Marek Rouchal Emarekr@cpan.orgE, borrowing a lot of things from L and L 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 --- 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. + Brad Appleton Ebradapp@enteract.comE Based on code for B written by diff --git a/lib/Pod/PlainText.pm b/lib/Pod/PlainText.pm index 4250ebb..3f5ce90 100644 --- 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. 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. + Russ Allbery Erra@stanford.eduE, based I heavily on the original Pod::Text by Tom Christiansen Etchrist@mox.perl.comE 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 --- a/lib/Pod/Select.pm +++ b/lib/Pod/Select.pm @@ -740,6 +740,8 @@ L =head1 AUTHOR +Please report bugs using L. + Brad Appleton Ebradapp@enteract.comE Based on code for B written by diff --git a/lib/Pod/Usage.pm b/lib/Pod/Usage.pm index 63c7007..f363b3a 100644 --- 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. + Brad Appleton Ebradapp@enteract.comE Based on code for B written by diff --git a/pod/pod2usage.PL b/pod/pod2usage.PL index 6df5062..1b14c17 100644 --- a/pod/pod2usage.PL +++ b/pod/pod2usage.PL @@ -125,6 +125,8 @@ L, L =head1 AUTHOR +Please report bugs using L. + Brad Appleton Ebradapp@enteract.comE Based on code for B written by diff --git a/pod/podselect.PL b/pod/podselect.PL index d3e204e..138e076 100644 --- a/pod/podselect.PL +++ b/pod/podselect.PL @@ -98,6 +98,8 @@ L and L =head1 AUTHOR +Please report bugs using L. + Brad Appleton Ebradapp@enteract.comE Based on code for B written by diff --git a/t/pod/pod2usage.xr b/t/pod/pod2usage.xr index 7315d40..da24830 100644 --- 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 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 --- 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 Based on code for Pod::Text::pod2text(1) written by Tom Christiansen