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



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でいただきました。