diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Html.pm | 2 | ||||
| -rw-r--r-- | lib/Pod/t/htmllink.t | 5 |
2 files changed, 2 insertions, 5 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 5dd4f3cc8a..ba54fd5b9b 100644 --- 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 744c80495e..9c73f82575 100644 --- 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" ?> |