This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change anchor generation in Pod::Html for "=item item 2"
authorJan Dubois <jand@activestate.com>
Fri, 14 Apr 2006 13:13:20 +0000 (06:13 -0700)
committerSteve Peters <steve@fisharerojo.org>
Sun, 16 Apr 2006 04:59:19 +0000 (04:59 +0000)
From: "Jan Dubois" <jand@ActiveState.com>
Message-ID: <017a01c65fff$dfd0f370$2217a8c0@candy>

p4raw-id: //depot/perl@27833

lib/Pod/Html.pm
lib/Pod/t/htmllink.t

index 5dd4f3c..ba54fd5 100644 (file)
@@ -2096,7 +2096,7 @@ sub fragment_id {
 
        # honour the perlfunc manpage: func [PAR[,[ ]PAR]...]
        # and some funnies with ... Module ...
-       return $1 if $text =~ m{^([a-z\d_]+)(\s+[A-Z\d,/& ]+)?$};
+       return $1 if $text =~ m{^([a-z\d_]+)(\s+[A-Z,/& ][A-Z\d,/& ]*)?$};
        return $1 if $text =~ m{^([a-z\d]+)\s+Module(\s+[A-Z\d,/& ]+)?$};
 
        # text? normalize!
index 744c804..9c73f82 100644 (file)
@@ -10,10 +10,7 @@ BEGIN {
 use strict;
 use Test::More tests => 1;
 
-TODO: {
-    local $TODO = "item 2 doesn't work as expected";
-    convert_n_test("htmllink", "html links");
-}
+convert_n_test("htmllink", "html links");
 
 __DATA__
 <?xml version="1.0" ?>