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
