From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Tue, 15 Sep 2015 17:24:17 +0000 (+0100)
Subject: standalone: Set very long SQLite3 busy timeout in Perl
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=54b0e5d68c1f1b132f55f87b110b518b4a84f72b;p=osstest.git

standalone: Set very long SQLite3 busy timeout in Perl

Without this, big standalone-generate-dump-flight-runvars jobs may
trying to serialise so much work that SQLite3 times out.  And we are
about to introduce an optimisation which makes this much more likely.

In standalone mode we probably don't care much about this timeout at
all.  (It might even be that the user is using sqlite(3) and has
effectively locked the database interactively for an extended period.)

We would prefer to rely on the user to stop anything that seems to
have become stuck.  So set the timeout to 10ks.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>
---

diff --git a/Osstest/JobDB/Standalone.pm b/Osstest/JobDB/Standalone.pm
index 45ec9ca..431ba5a 100644
--- a/Osstest/JobDB/Standalone.pm
+++ b/Osstest/JobDB/Standalone.pm
@@ -52,6 +52,9 @@ sub open ($) {
         ShowErrorStatement => 1,
         })
         or die "could not open standalone db $dbi";
+
+    $dbh->sqlite_busy_timeout(10E6); # 10ks
+
     return $dbh;
 }