tcl: JobDB-Executive: Print better message on transaction rollback, earlier

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index 3f3ff29d5bfe0d121b0969f838d5fd68adbddf6f..8dc7f3a5d33210d06972fdfdb271ca7988f27d00 100644 (file)
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -386,8 +386,9 @@ proc transaction {tables script {autoreconnect 0}} {
                {OSSTEST-PSQL * 40P01} -
                {OSSTEST-PSQL * 40001} {
                    # DEADLOCK DETECTED or SERIALIZATION FAILURE
+                   logputs stdout \
+ "transaction serialisation failure ($errorCode) ($result) retrying ..."
                    if {$dbopen} { db-execute ROLLBACK }
-                   logputs stdout "transaction deadlock ($result) retrying ..."
                    if {[incr retries -1] <= 0} {
                        error \
  "transaction failed, too many retries: $result\n$ei\n$ec\n"