Commit a2b918ec authored by cyeh%bluemartini.com's avatar cyeh%bluemartini.com

fix for DBI compatibility

parent 7171d4a4
...@@ -132,7 +132,7 @@ sub SendSQL { ...@@ -132,7 +132,7 @@ sub SendSQL {
SqlLog($str); SqlLog($str);
$::currentquery = $::db->prepare($str); $::currentquery = $::db->prepare($str);
$::currentquery->execute $::currentquery->execute
|| die "$str: " . $::db->errmsg; || die "$str: " . $::db->errstr;
SqlLog("Done"); SqlLog("Done");
if (!$dontshadow && $iswrite && Param("shadowdb")) { if (!$dontshadow && $iswrite && Param("shadowdb")) {
my $q = SqlQuote($str); my $q = SqlQuote($str);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment