fixed pre-encoded entities

barbie · Jun 30, 2012 · b99ec9e · b99ec9e
1 parent 13d1254
commit b99ec9e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/CPAN/Testers/WWW/Statistics.pm b/lib/CPAN/Testers/WWW/Statistics.pm
@@ -344,7 +344,7 @@ sub tester {
         \%map;
     };
 
-    my $addr = ($self->{addresses}{$name} && $self->{addresses}{$name} =~ /\&\#x?\d+\;/)
+    my $addr = ($self->{addresses}{$name} && $self->{addresses}{$name} =~ /\&(\#x?\d+|\w+)\;/)
                 ? $self->{addresses}{$name}
                 : encode_entities( ($self->{addresses}{$name} || $name) );
     $addr =~ s/\./ /g if($addr =~ /\@/);