Yahoo OpenIDでNet :: OpenID :: Consumerを使用してエンコードエラーを回避するにはどうすればよいですか？

Question

Net::OpenID::Consumerを使用して認証用のOpenIDを使用するDancer Webアプリケーションを作成しました。 GoogleとMyOpenIDではうまく動作しますが、Yahooではうまく動作しません。

Parsing of undecoded UTF-8 will give garbage when decoding entities

をし、この警告は（当然のように）私のアプリを殺す：ユーザーがYahooのアカウントを使用して認証しようとすると、HTML::Parserは警告しています。

これに関連するNet::OpenID::Consumer（または共通）のバグはありません。
HTTPヘッダーとHTMLメタタグの両方で、「要求ID」URIにUTF-8が指定されています。
なぜ応答はHTML::Parserのためにデコードされませんか？私は明白な何かを欠いていますかそれはあなたがTreeBuilderにページの内容を渡す前に、decode_utf8を介してそれらを養う、ボンネットの下にTreeBuilderで使用されているHTML :: Parserのモジュールから来

get '/openid_landing' => sub { 
    my $params = params(); 
    my $csr = Net::OpenID::Consumer->new(
     ua => LWP::UserAgent->new(), 
     consumer_secret => $secret, 
     params => $params, 
    ); 
    my $id = $params->{'openid.claimed_id'}; 

    if (my $setup_url = $csr->user_setup_url) { 
     redirect $setup_url; 

    } elsif ($csr->user_cancel) { 
     redirect uri_for('/'); 

    } elsif (my $vident = $csr->verified_identity) { 
     # verified identity, log in or register user 
     ... 

    } else { 
     die "Error validating identity: " . $csr->err; 
    } 
}; 

Answer 1

バグはバージョン1.14（最新） のライン122-128にネット/ OpenIDで/ URIFetch.pmであることではなく、レスポンスオブジェクトの復号されたコンテンツの生のコンテンツを使用しています。 手動のgzipデコードを削除して、応答でdecoded_contentメソッドを使用するだけです。

私はまだバグレポートを提出していない、自由に感じる。 :)ここで

は、あなたがそれを修正するために適用することができデフです：

122c122 
<   my $content = $res->decoded_content; 
--- 
>   my $content = $res->content; 
125a126,129 
>   if ($res->content_encoding && $res->content_encoding eq 'gzip') { 
>    $content = Compress::Zlib::memGunzip($content); 
>   } 
> 

Answer 2

：ここ

は、関連するコードです

より多くの場合

use HTML::TreeBuilder; 
use Encode; 
my $contents = ...; 
my $htree = HTML::TreeBuilder->new_from_content(decode_utf8 $contents); 

：

http://metacpan.org/pod/HTML::TreeBuilder#new-from-content

http://search.cpan.org/dist/HTML-Parser/Parser.pm