don't bother looking it up if missing arguments

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

diff --git a/blootbot/src/dbi.pl b/blootbot/src/dbi.pl
index 3ead58ae173715e9ec83314ecc22ebb38f186368..e205a4e8f75d56bad8ec63b69148a0ef6c495114 100644 (file)
--- a/blootbot/src/dbi.pl
+++ b/blootbot/src/dbi.pl
@@ -274,8 +274,6 @@ sub dbSet {
        return;
     }
 
-    my $result = &dbGet($table, join(',', keys %{$phref}), $where);
-
     my(@keys,@vals);
     foreach (keys %{$href}) {
        push(@keys, $_);
@@ -287,6 +285,8 @@ sub dbSet {
        return;
     }
 
+    my $result = &dbGet($table, join(',', keys %{$phref}), $where);
+
     my $query;
     if (defined $result) {
        my @keyval;