a little more...

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

diff --git a/src/Modules/babel.pl b/src/Modules/babel.pl
index e80b6b34b5992ea768b5a3bac0d0753a1b7f9772..16beeb5ce2073599a434395bb19a13d0bfb86de1 100644 (file)
--- a/src/Modules/babel.pl
+++ b/src/Modules/babel.pl
@@ -108,14 +108,14 @@ sub translate {
       &main::DEBUG("$translated\n===remove after 'Translate again'\n");
 
       $translated =~ s/[^:]*?:\s*(Help\s*)?//s;
-      &main::DEBUG("$translated\n===remove to first ':', optional Help\n");
+      &main::DEBUG("len=" . length($translated) . " $translated\n===remove to first ':', optional Help\n");
 
       $translated =~ s/\n/ /g;
       # FIXME: should we do unicode->iso (no. use utf8!)
   } else {
       $translated = ":("; # failure
   }
-  $translated = "babel.pl: result too long, probably an error" if (length($translated) > 370);
+  $translated = "babel.pl: result too long, probably an error" if (length($translated) > 700);
 
   &main::pSReply($translated);
 }