Change anchor generation in Pod::Html for "=item item 2"

From: "Jan Dubois" <jand@ActiveState.com>
Message-ID: <017a01c65fff$dfd0f370$2217a8c0@candy>

p4raw-id: //depot/perl@27833

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 5dd4f3cc8a67e8dc78dcbcd1a00df783478bafe1..ba54fd5b9b366d6acb5b94bab0c0e3f973985cb7 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -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!

diff --git a/lib/Pod/t/htmllink.t b/lib/Pod/t/htmllink.t
index 744c80495e32b94b8ab6cf99a07c78ed02c57a03..9c73f8257524039a82d7110fad5b6e7f09b18a89 100644 (file)
--- a/lib/Pod/t/htmllink.t
+++ b/lib/Pod/t/htmllink.t
@@ -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" ?>