summaryrefslogtreecommitdiffstats
path: root/tests/compile.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/compile.test')
-rw-r--r--tests/compile.test2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/compile.test b/tests/compile.test
index 89fe8dc..0a29c15 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -497,7 +497,7 @@ test compile-13.2 {TclCompileScript: testing expected nested scripts compilation
# with 2000 (1000 in debug) nested scripts (bodies). If you get SO/SF exceptions on some low-stack
# boxes or systems, please don't decrease it (either provide a constraint)
ti eval {foreach cmd {eval "if 1" try catch} {
- set c [gencode [expr {![info exists ::tcl_platform(debug)] ? 2000 : 1000}] $cmd]
+ set c [gencode [expr {![::tcl::pkgconfig get debug] ? 2000 : 1000}] $cmd]
if 1 $c
}}
ti eval {set result}