From aae22bd6f17f401857a5bf6b628f01c3a50e2658 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sun, 16 Jan 2011 23:17:23 -0700
Subject: [PATCH] Fixed use and added a call to expire_logs()

---
 bin/auto | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/bin/auto b/bin/auto
index e7054e9..63793be 100755
--- a/bin/auto
+++ b/bin/auto
@@ -11,16 +11,17 @@ use POSIX;
 use locale;
 use Mouse;
 use IO::Socket;
+use Async;
 use FindBin qw($Bin);
 our $Bin = $Bin;
-unshift(@INC, "$Bin/../src");
-require API::Std;
-require API::Log;
-#require DB::Flatfile;
-require Parser::Config;
-require Parser::Lang;
-#require Parser::IRC;
-#require Sys;
+BEGIN { unshift(@INC, "$Bin/../src"); }
+use API::Std;
+use API::Log qw(println alog);
+#use DB::Flatfile;
+use Parser::Config;
+use Parser::Lang;
+#use Parser::IRC;
+#use Sys;
 
 use constant {
 	NAME   => 'Auto IRC Bot',
@@ -39,3 +40,5 @@ my @lang = split('_', $LOCALE);
 Parser::Lang::parse($lang[0]);
 undef @lang;
 undef @lclv;
+
+API::Log::expire_logs();