fix for DBI compatibility

diff --git a/globals.pl b/globals.pl
index 80f517c85f2d52ea746e0b912aef34c0fb444a84..91ef44ceeca504b05fd26292c6c4ae08fcd3db10 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -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);