dunno

[infobot.git] / infobot

diff --git a/infobot b/infobot
index e0c1ad20d65ad887036212802e8f4a60e2b1078f..ffc3911387e33b9bd2554d97e8704b0e9257091d 100755 (executable)
--- a/infobot
+++ b/infobot
@@ -3,7 +3,7 @@
 # infobot
 # copyright kevin lenzo (c) 1997-1999
 # copyright david sobon (c) 1999-infinity
-# Copyright (c) 2001-2008 Tim Riker <Tim@Rikers.org>
+# Copyright (c) 2001-2014 Tim Riker <Tim@Rikers.org>
 
 use strict;
 use vars qw($bot_base_dir $bot_src_dir $bot_misc_dir $bot_state_dir
@@ -11,6 +11,11 @@ use vars qw($bot_base_dir $bot_src_dir $bot_misc_dir $bot_state_dir
   $bot_pid $memusage %param
 );
 
+# 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] ) {