fix death

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

diff --git a/src/dbi.pl b/src/dbi.pl
index fb20e3c731f9c6c721f7e78a7c1fc730b0df5b02..0c9a3f525afaab53d73e7db848356a8fb417fd54 100644 (file)
--- a/src/dbi.pl
+++ b/src/dbi.pl
@@ -179,12 +179,15 @@ sub dbGetColNiceHash {
        return;
     }
 
-    # FIXME this dies hard if there are no results
-    %retval = %{ $sth->fetchrow_hashref };
+    my $retval = $sth->fetchrow_hashref();
 
     $sth->finish;
 
-    return %retval;
+    if ($retval) {
+       return %{$retval};
+    } else {
+       return;
+    }
 }
 
 ####