ANN: Use the decoded HTTP content for proper Unicode.

git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/utils@1123 959494ce-11ee-0310-bf91-de5d638817bd

diff --git a/ANN.pm b/ANN.pm
index 48bd9c494c6539071e19f4bb1aab2dc14ece7c21..8b311f4b84d69f3fec2e3b292b157a6f94d1d17a 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