From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 1 Nov 2002 22:16:55 +0000 (+0000)
Subject: cleanup
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e67d8d56101e1817c2f561217fb4e2215015f445;p=infobot.git

cleanup


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@583 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/Factoids/Reply.pl b/src/Factoids/Reply.pl
index 0d51865..575e1b3 100644
--- a/src/Factoids/Reply.pl
+++ b/src/Factoids/Reply.pl
@@ -18,7 +18,7 @@ use vars qw(%lang %lastWho);
 sub getReply {
     my($message) = @_;
     my($lhs,$mhs,$rhs);
-    my($result,$reply);
+    my($reply);
     $orig{message} = $message;
 
     if (!defined $message or $message =~ /^\s*$/) {
diff --git a/src/db_dbm.pl b/src/db_dbm.pl
index f682336..e1ff747 100644
--- a/src/db_dbm.pl
+++ b/src/db_dbm.pl
@@ -151,7 +151,7 @@ sub dbGet {
 	my $str = $format[$_];
 	next unless (grep /^$str$/, split(/\,/, $select));
 	$array[$_] ||= '';
-	&DEBUG("dG: pushing '$array[$_]'.");
+	&DEBUG("dG: pushing $format[$_]=>'$array[$_]'.");
 	push(@retval, $array[$_]);
     }
 
@@ -333,9 +333,9 @@ sub randKey {
 ##### $select is misleading???
 # Usage: &searchTable($table, $returnkey, $primkey, $str);
 sub searchTable {
+    my ($table, $primkey, $key, $str) = @_;
     &FIXME("STUB: searchTable($table, $primkey, $key, $str)");
     return;
-    my ($table, $primkey, $key, $str) = @_;
     &DEBUG("searchTable($table, $primkey, $key, $str)");
 
     if (!scalar &dbGetColInfo($table)) {