fixed small anchor bug in Mojolicious::Plugin::PODRenderer

mojolicious · Apr 8, 2013 · 46d10ee · 46d10ee
1 parent 5f7c758
commit 46d10ee
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -5,6 +5,7 @@
   - Improved documentation.
   - Improved tests.
   - Fixed small selector bug in get command.
+  - Fixed small anchor bug in Mojolicious::Plugin::PODRenderer.
 
 3.93  2013-04-05
   - Deprecated Mojo::IOLoop::Delay::end in favor of generated callbacks.

diff --git a/lib/Mojolicious/Plugin/PODRenderer.pm b/lib/Mojolicious/Plugin/PODRenderer.pm
@@ -78,7 +78,7 @@ sub _perldoc {
       # Anchor and text
       my $name = my $text = $e->all_text;
       $name =~ s/\s+/_/g;
-      $name =~ s/\W//g;
+      $name =~ s/[^\w\-]//g;
       my $anchor = $name;
       my $i      = 1;
       $anchor = $name . $i++ while $anchors{$anchor}++;