fix encoding of characters in index links

metacpan · Jan 11, 2017 · b6d5f4f · b6d5f4f
1 parent b373b33
commit b6d5f4f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/MetaCPAN/Pod/XHTML.pm b/lib/MetaCPAN/Pod/XHTML.pm
@@ -33,7 +33,8 @@ sub _end_head {
     $self->{more_ids} = [ $self->id_extras($head_name) ];
     $self->SUPER::_end_head(@_);
     my $index_entry = $self->{'to_index'}[-1];
-    $index_entry->[1] = $self->url_encode( $index_entry->[1] );
+    $index_entry->[1] = $self->encode_entities(
+        $self->url_encode( decode_entities( $index_entry->[1] ) ) );
     return;
 }