$res = $ua->request(HTTP::Request->new("GET", "$uri"));
if(open CACHE, ">:utf8", $cname) {
- print CACHE $res->content;
+ print CACHE $res->decoded_content;
close CACHE;
}
return undef unless $res->is_success;
- return $res->content;
+ return $res->decoded_content;
}
sub getlist