From 959ec3c5a909b85f1c45d8ef7e38e8fbcf386b82 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 2 Jul 2004 15:20:25 +0000
Subject: [PATCH] a little more...

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@981 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Modules/babel.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Modules/babel.pl b/src/Modules/babel.pl
index e80b6b3..16beeb5 100644
--- 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);
 }
-- 
2.39.5