Lock the tables as low-priority when writing. Maybe makes people making changes wait longer, but people doing read-only stuff should now never block for very long.

1 files changed, 6 insertions, 1 deletions

diff --git a/process_bug.cgi b/process_bug.cgi
index b9be355b2..9eb32e129 100755
--- a/process_bug.cgi
+++ b/process_bug.cgi
@@ -482,7 +482,12 @@ sub LogDependencyActivity {
 #
 foreach my $id (@idlist) {
     my %dependencychanged;
-    SendSQL("lock tables bugs write, bugs_activity write, cc write, profiles write, dependencies write, votes write, keywords write, longdescs write, fielddefs write, keyworddefs read");
+    my $write = "LOW_PRIORITY WRITE"; # Might want to make a param to control
+                                      # whether we do LOW_PRIORITY ...
+    SendSQL("LOCK TABLES bugs $write, bugs_activity $write, cc $write, " .
+            "profiles $write, dependencies $write, votes $write, " .
+            "keywords $write, longdescs $write, fielddefs $write, " .
+            "keyworddefs READ, groups READ");
     my @oldvalues = SnapShotBug($id);
 
     if (defined $::FORM{'delta_ts'} && $::FORM{'delta_ts'} ne $delta_ts) {