git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@152
c11ca15a-4712-0410-83d8-
924469b57eb5
if (!$sth->execute) {
&ERROR("Get => '$query'");
&ERROR("Get => $DBI::errstr");
- return;
+ $sth->finish;
+ return 0;
}
my @retval = $sth->fetchrow_array;
if (!$sth->execute) {
&ERROR("GetCol => '$query'");
&ERROR("GetCol => $DBI::errstr");
+ $sth->finish;
return;
}
if (!$sth->execute) {
&ERROR("GRI => '$query'");
&ERROR("GRI => $DBI::errstr");
+ $sth->finish;
+ return;
}
my @cols;
if (!$sth->execute) {
&ERROR("Raw($prefix): => '$query'");
&ERROR("Raw($prefix): $DBI::errstr");
+ $sth->finish;
return 0;
}