From 8d85aa1591e0931c4e62b44964b72733549eaec6 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 31 Oct 2002 22:13:18 +0000
Subject: [PATCH] showProc needs to come after require

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@570 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/modules.pl | 23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

diff --git a/src/modules.pl b/src/modules.pl
index 36e3204..f93f786 100644
--- a/src/modules.pl
+++ b/src/modules.pl
@@ -77,8 +77,6 @@ sub loadCoreModules {
 }
 
 sub loadDBModules {
-    &status("Loading DB modules...");
-
     my $f = "$bot_src_dir/modules.pl";
     $moduleAge{$f} = (stat $f)[9];
 
@@ -88,13 +86,11 @@ sub loadDBModules {
 	    &ERROR("libdbd-mysql-perl is not installed!");
 	    exit 1;
 	}
-	&showProc(" (DBI // mysql)");
-
-	&status("  using MySQL support.");
+	&status("Loading MySQL support.");
 	$f = "$bot_src_dir/db_mysql.pl";
 	require $f;
 	$moduleAge{$f} = (stat $f)[9];
-
+	&showProc(" (DBI // mysql)");
     } elsif ($param{'DBType'} =~ /^pgsql$/i) {
 #	eval "use Pg";
 	eval "use DBI";
@@ -102,17 +98,16 @@ sub loadDBModules {
 	    &ERROR("libpgperl is not installed!");
 	    exit 1;
 	}
-	&showProc(" (pgsql)");
-
-	&status("  using pgsql support.");
+	&status("Loading pgsql support.");
 	require "$bot_src_dir/db_pgsql.pl";
-
+	&showProc(" (pgsql)");
     } elsif ($param{'DBType'} =~ /^dbm$/i) {
-
-	&status("  using Berkeley DBM support.");
-	require "$bot_src_dir/db_dbm.pl";
+	&status("Loading Berkeley DBM support.");
+	$f = "$bot_src_dir/db_dbm.pl";
+	require $f;
+	$moduleAge{$f} = (stat $f)[9];
+	&showProc(" $bot_src_dir/db_dbm.pl");
     } else {
-
 	&status("DB support DISABLED.");
 	return;
     }
-- 
2.39.5