The Perl was lacking SET TRANSACTION ISOLATION LEVEL SERIALIZABLE,
which is sadly not the default. Currently that does not matter
because of all the table locking, but we are about to abolish that.
Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
Osstest/JobDB/Executive.pm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/Osstest/JobDB/Executive.pm b/Osstest/JobDB/Executive.pm
index 76f3293..557cee1 100644
--- a/Osstest/JobDB/Executive.pm
+++ b/Osstest/JobDB/Executive.pm
@@ -42,6 +42,9 @@ sub begin_work ($$$) { #method
my ($jd, $dbh,$tables) = @_;
return if $ENV{'OSSTEST_DEBUG_NOSQLLOCK'};
+
+ $dbh->do("SET TRANSACTION ISOLATION LEVEL SERIALIZABLE");
+
foreach my $tab (@$tables) {
$dbh->do("LOCK TABLE $tab IN EXCLUSIVE MODE");
}
--
2.1.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
https://lists.xen.org/xen-devel
