tcl daemons: if error occurs, ensure db is closed afterwards

When an error occurs which we are not handling, we want to
unconditionally close the db connection.  The next transaction will
reopen it.

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

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index 55ff885abe7d565f71c0709d5f2fc29c93b2c9e9..ab6760a3216c2fbbea7c413afa960e456b868f36 100644 (file)
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -334,6 +334,7 @@ proc transaction {tables script} {
                    continue
                }
            }
+           catch { db-ensure-closed }
        }
        return -code $rc -errorinfo $ei -errorcode $ec $result
     }