don't flood on error

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

diff --git a/src/Modules/babel.pl b/src/Modules/babel.pl
index 939d2f46aefe67431bb1b5ae4fb093d1b970475c..e80b6b34b5992ea768b5a3bac0d0753a1b7f9772 100644 (file)
--- a/src/Modules/babel.pl
+++ b/src/Modules/babel.pl
@@ -115,6 +115,8 @@ sub translate {
   } else {
       $translated = ":("; # failure
   }
+  $translated = "babel.pl: result too long, probably an error" if (length($translated) > 370);
+
   &main::pSReply($translated);
 }