Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fixed pre-encoded entities

  • Loading branch information...
commit b99ec9eb41fcb0cbf67b313725430a0f3e1384b3 1 parent 13d1254
@barbie authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  lib/CPAN/Testers/WWW/Statistics.pm
View
2  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 =~ /\@/);
Please sign in to comment.
Something went wrong with that request. Please try again.