From: dms Date: Mon, 29 Jan 2001 15:03:38 +0000 (+0000) Subject: - strip ^chars update. X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e5617c01467845cbe1ce28ee4b59ea8c4f530f32;p=infobot.git - strip ^chars update. git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@266 c11ca15a-4712-0410-83d8-924469b57eb5 --- diff --git a/blootbot/src/Misc.pl b/blootbot/src/Misc.pl index d105bf6..ddda582 100644 --- a/blootbot/src/Misc.pl +++ b/blootbot/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;