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 0d518658fccd6b62e8cf4c9a6921412f9db693ef..575e1b34143e7bb59e38c1f28530510e918d261e 100644 (file)
--- 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 f6823366a1d3ee81ddfffceabf476340042e4104..e1ff747ba49904062e1809d8abeceab845472994 100644 (file)
--- 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)) {