develooper Front page | perl.perl5.porters | Postings from October 2003

[PATCH] Re: L<> links in pod (was Re: 5.8.2 perldelta)

From:
Michael G Schwern
Date:
October 30, 2003 18:33
Subject:
[PATCH] Re: L<> links in pod (was Re: 5.8.2 perldelta)
Message ID:
20031031023306.GA555@localhost.comcast.net
On Thu, Oct 30, 2003 at 05:08:25PM -0900, Sean M. Burke wrote:
> At 02:11 PM 2003-10-30, Nicholas Clark wrote:
> >> >Sorry for being pedantic, but URLs in POD documents use
> >> >L<>, not F<>.  perlpod.pod says:
> >> OK, it is just that other URLs in the perldelta were done with F<>,
> >> so I just followed that. I guess one needs to change all F<>s
> >> referring to URL in the whole perldelta. Here is a patch then:
> >I've not committed this yet. I've been in the habit of running 
> >pod/podchecker
> >*** WARNING: node 'http://bugs.perl.org/' contains non-escaped | or / at 
> >line 143 in file pod/perldelta.pod [...]
> 
> If I may critique podchecker for a minute:  BULLSHIT!

This isn't Pod::Checker but Pod::ParseUtils.  It appears to still think
hyperlinks are non-standard and could probably do with some updating.

Meanwhile, this should patch it up.

--- lib/Pod/ParseUtils.pm	2003/10/31 02:31:25	1.1
+++ lib/Pod/ParseUtils.pm	2003/10/31 02:31:33
@@ -396,7 +396,7 @@
     if($page =~ /[(]\w*[)]$/) {
         $self->warning("(section) in '$page' deprecated");
     }
-    if(!$quoted && $node =~ m:[|/]:) {
+    if(!$quoted && $node =~ m:[|/]: && $type ne 'hyperlink') {
         $self->warning("node '$node' contains non-escaped | or /");
     }
     if($alttext =~ m:[|/]:) {


-- 
Michael G Schwern        schwern@pobox.com  http://www.pobox.com/~schwern/
I knew right away that my pants and your inner child could be best friends.



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About