don't clear channels, minor utf8 tweak

[infobot.git] / infobot

diff --git a/infobot b/infobot
index 2c58f3921cb7e3d493e96eb1f357d711d0d2f279..ff2b0a0640de1ed44d92ca9df639732665232218 100755 (executable)
--- a/infobot
+++ b/infobot
@@ -14,6 +14,7 @@ use vars qw($bot_base_dir $bot_src_dir $bot_misc_dir $bot_state_dir
 # ancient Perl may not like these, but modern systems should have this
 use open ':utf8';
 use open ':std';
+use Encode qw( decode FB_QUIET );
 
 BEGIN {
     if ( @ARGV and -f $ARGV[0] ) {