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"
[perl5.git] / lib / Pod / Html.pm
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!