tcl daemons: More info in db--exec-check error

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
---
v3: Fix to include $emsg at start of errorInfo

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index dae33b5270ecd62c96362ebdf22ddfd433017f91..4d5f2f28e130b040f1ccf300a68f9f2771ac0d1d 100644 (file)
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -170,6 +170,7 @@ proc db--exec-check {shvar stmt expected_status body} {
                set emsg "osstest expected status $expected_status got $status"
            }
            set context [pg_result $sh -error context]
+           set emsg "db exec failed ($status, $sqlstate) $emsg"
            error $emsg \
  "$emsg\n    while executing SQL\n$stmt\n    in SQL context\n$context" \
                [list OSSTEST-PSQL $status $sqlstate]