ANN: Use the decoded HTTP content for proper Unicode.

[utils.git] / ANN.pm

diff --git a/ANN.pm b/ANN.pm
index 48bd9c4..8b311f4 100644 (file)
--- a/ANN.pm
+++ b/ANN.pm
@@ -35,12 +35,12 @@ sub _get
     $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