- strip ^chars update.

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

diff --git a/src/Misc.pl b/src/Misc.pl
index d105bf65209d02ab84f8d4134e231e675a4909b6..ddda582e314fbb4a58ad42362fababcc99ab6e27 100644 (file)
--- a/src/Misc.pl
+++ b/src/Misc.pl
@@ -229,8 +229,9 @@ sub fixString {
        s/\s+/ /g;              # remove excessive whitespaces.
 
        next unless (defined $level);
-       &DEBUG("strip control chars?");
-       s/[\cA-\c_]//ig         # remove control characters.
+       if (s/[\cA-\c_]//ig) {          # remove control characters.
+           &DEBUG("stripped control chars");
+       }
     }
 
     return $str;