fix for DBI compatibility

This commit is contained in:
cyeh%bluemartini.com 2000-06-26 23:04:40 +00:00
parent cc38577efa
commit c73d27038c

View File

@ -132,7 +132,7 @@ sub SendSQL {
SqlLog($str);
$::currentquery = $::db->prepare($str);
$::currentquery->execute
|| die "$str: " . $::db->errmsg;
|| die "$str: " . $::db->errstr;
SqlLog("Done");
if (!$dontshadow && $iswrite && Param("shadowdb")) {
my $q = SqlQuote($str);