From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Jackson Subject: [OSSTEST PATCH 1/7] Tcl database debugging: Actually work Date: Thu, 7 Jan 2016 19:38:10 +0000 Message-ID: <1452195496-16016-2-git-send-email-ian.jackson@eu.citrix.com> References: <1452195496-16016-1-git-send-email-ian.jackson@eu.citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: Received: from mail6.bemta5.messagelabs.com ([195.245.231.135]) by lists.xen.org with esmtp (Exim 4.72) (envelope-from ) id 1aHGOG-0003TU-CZ for xen-devel@lists.xenproject.org; Thu, 07 Jan 2016 19:38:32 +0000 In-Reply-To: <1452195496-16016-1-git-send-email-ian.jackson@eu.citrix.com> List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Sender: xen-devel-bounces@lists.xen.org Errors-To: xen-devel-bounces@lists.xen.org To: xen-devel@lists.xenproject.org Cc: Ian Jackson , Ian Campbell List-Id: xen-devel@lists.xenproject.org Setting OSSTEST_TCL_JOBDB_DEBUG was ineffective (ever since it was introduced in 44dad3d8) because `env' wasn't imported from the global scope. Signed-off-by: Ian Jackson --- tcl/JobDB-Executive.tcl | 1 + 1 file changed, 1 insertion(+) diff --git a/tcl/JobDB-Executive.tcl b/tcl/JobDB-Executive.tcl index 7dba497..239f22c 100644 --- a/tcl/JobDB-Executive.tcl +++ b/tcl/JobDB-Executive.tcl @@ -116,6 +116,7 @@ proc db-update-1 {stmt} { } proc db-execute-debug {stmt} { + global env if {[var-or-default env(OSSTEST_TCL_JOBDB_DEBUG) 0]} { puts stderr "EXECUTING >$stmt<" } -- 1.7.10.4