cleanup

mojolicious · Dec 20, 2010 · 5a2e5fe · 5a2e5fe
1 parent 8237f6e
commit 5a2e5fe
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Mojolicious/Plugin/PodRenderer.pm b/lib/Mojolicious/Plugin/PodRenderer.pm
@@ -98,7 +98,9 @@ sub register {
                     my $tag    = shift;
                     my $text   = $tag->all_text;
                     my $anchor = $text;
-                    $anchor =~ s/\W/_/g;
+                    $anchor =~ s/[^\w\-]/_/g;
+                    $anchor =~ s/^_+//;
+                    $anchor =~ s/_+$//;
                     $tag->replace_inner(
                         qq/<a href="$abs#$anchor" name="$anchor">$text<\/a>/);
                 }