dbGetColNiceHash needs fixing

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

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