diff options
| author | Jan Dubois <jand@activestate.com> | 2006-04-14 06:13:20 -0700 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-04-16 04:59:19 +0000 |
| commit | bee6d11532124d429869bc62306535b2a74bff79 (patch) | |
| tree | e6e36335c0bb7054a74086be1af0b049cba7361b /lib/Pod/Html.pm | |
| parent | d0ff30b502d98db8874b0cf66ae2f0a8a0f5e4f1 (diff) | |
| download | perl-bee6d11532124d429869bc62306535b2a74bff79.tar.gz | |
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
Diffstat (limited to 'lib/Pod/Html.pm')
| -rw-r--r-- | lib/Pod/Html.pm | 2 |
1 files changed, 1 insertions, 1 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! |