Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
 tcl/JobDB-Executive.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl
index 6c7e067..8f4ed98 100644
--- a/tcl/JobDB-Executive.tcl
+++ b/tcl/JobDB-Executive.tcl
@@ -170,7 +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]
-           error $emsg \
+           error "db exec failed ($status, $sqlstate) $emsg" \
                "    while executing SQL\n$stmt\n    in SQL context\n$context" \
                [list OSSTEST-PSQL $status $sqlstate]
        }
-- 
2.1.4


_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
https://lists.xen.org/xen-devel

Reply via email to