From: Jan Dubois <jand@activestate.com>
Date: Fri, 14 Apr 2006 13:13:20 +0000 (-0700)
Subject: Change anchor generation in Pod::Html for "=item item 2"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bee6d11532124d429869bc62306535b2a74bff79;p=p5sagit%2Fp5-mst-13.2.git

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 5dd4f3c..ba54fd5 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 744c804..9c73f82 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" ?>