force lang - from [4-tea-2]

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@948 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/babel.pl b/src/Modules/babel.pl
index db68adb6f3b2fc56db34522660a2f0e7cad9c476..98d9ffb243379041b5178a55172813552ac194ed 100644 (file)
--- a/src/Modules/babel.pl
+++ b/src/Modules/babel.pl
@@ -72,6 +72,7 @@ sub babelfish {
 # Accept-Charset: iso-8859-1
 #  $req->header('Accept-Charset' => 'iso-8859-1');
 #  print $req->header('Accept-Charset');
+  $req->header('Accept-Language' => 'en');
   $req->content_type('application/x-www-form-urlencoded');
 
   return translate($phrase, "${from}_${to}", $req, $ua);