util.tcl: gaffe in centralizing code

oharboe · oharboe · commit 02d3709d4ea3 · 2024-09-23T18:56:22.000+02:00
Signed-off-by: Øyvind Harboe &lt;oyvind.harboe@zylin.com&gt;
diff --git a/flow/scripts/util.tcl b/flow/scripts/util.tcl
@@ -66,7 +66,7 @@ proc find_sdc_file {input_file} {
 }
 
 proc env_var_equals {env_var value} {
-    return [info exists ::env($env_var)] && $::env($env_var) == $value
+    return [expr {[info exists ::env($env_var)] && $::env($env_var) == $value}]
 }
 
 proc env_var_exists_and_non_empty {env_var} {

Original file line number	Diff line number	Diff line change
`@@ -66,7 +66,7 @@ proc find_sdc_file {input_file} {`
`66`	`66`	`}`
`67`	`67`
`68`	`68`	`proc env_var_equals {env_var value} {`
`69`		`- return [info exists ::env($env_var)] && $::env($env_var) == $value`
	`69`	`+ return [expr {[info exists ::env($env_var)] && $::env($env_var) == $value}]`
`70`	`70`	`}`
`71`	`71`
`72`	`72`	`proc env_var_exists_and_non_empty {env_var} {`