diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-29 12:51:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-29 12:51:24 (GMT) |
| commit | 05301b57c56276fe90f0696d9e312eff2f67c993 (patch) | |
| tree | fe6634871841e367400ebb05c56970f5741cb369 /tests/compile.test | |
| parent | 2ea6a13c20ca3d08cfe79d7254f5e5631ae31568 (diff) | |
| parent | 2342babe990ebbf9e046143ce965996fc5701abc (diff) | |
| download | tcl-05301b57c56276fe90f0696d9e312eff2f67c993.zip tcl-05301b57c56276fe90f0696d9e312eff2f67c993.tar.gz tcl-05301b57c56276fe90f0696d9e312eff2f67c993.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/compile.test')
| -rw-r--r-- | tests/compile.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/compile.test b/tests/compile.test index b90f124..37bd034 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -500,7 +500,7 @@ test compile-13.2 {TclCompileScript: testing expected nested scripts compilation # with 1500 (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 {![::tcl::pkgconfig get debug] ? 1500 : 1000}] $cmd] + set c [gencode [expr {"debug" ni [split [package provide Tcl] .] ? 1500 : 1000}] $cmd] if 1 $c }} ti eval {set result} |