diff --git a/Changes b/Changes index 0b16861..be4cbbf 100644 --- a/Changes +++ b/Changes @@ -8,8 +8,9 @@ Changes - List of significant changes to Yahoo::Search Yahoo::Search::XML parser, like it does when using the XML::Simple parser. Added tests for same. RT#45029 RT#35213 RT#31618 - Added support for Region parameter thanks to Hendrik Weimer. - RT#54591 + Fixed entity parsing thanks to Bernt Budde. RT#32011 + + Added Region parameter thanks to Hendrik Weimer. RT#54591 Converted to use Dist::Zilla for releases. diff --git a/lib/Yahoo/Search/XML.pm b/lib/Yahoo/Search/XML.pm index 3fca8f8..9fa7e49 100644 --- a/lib/Yahoo/Search/XML.pm +++ b/lib/Yahoo/Search/XML.pm @@ -152,8 +152,10 @@ sub _entity($) my $name = shift; if (my $val = $EntityDecode{$name}) { return $val; - } elsif ($val =~ m/^#(\d+)$/) { + } elsif ($name =~ m/^#(\d+)$/) { return chr($1); + } elsif ($name =~ m/^#x([0-9a-f]+)$/i) { + return chr(hex($1)); } else { _error(__LINE__, "unknown entity &$name;"); }