Gungho vs PoCo::Clieht::HTTP

おお、毎度ありがとうございます。

http://labs.cybozu.co.jp/blog/kazuho/archives/2007/04/poco_patch.php

Devel::StackTrace をprereqに足したくないので、以下のようにしてとりこませてもらいます！

  use constant SKIP_DECODE_CONTENT 

  BEGIN

  {

    if (SKIP_DECODE_CONTENT) {

      eval <<'        EOCODE';

        no warnings 'redefine';

        sub HTTP::Response::decoded_content {

          my ($self, %opt) = @_;

          my $caller = (caller(2))[3];

          if ($caller eq 'POE::Component::Client::HTTP::Request::return_response') {

            $opt{charset} = 'none';

          }

          $self->SUPER::decoded_content(%opt);

        }

      EOCODE

    }

  }

rev 63でいただきました。