summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/tcltk/tcl/interp.patch
blob: 95d6318f644bd0c9c917104e053d82c82e5c4b3f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
The interp-36.7 patch has race conditions and is missing cleanup.  This patch by
a Tcl maintainer should improve matters.

Upstream-Status: Pending
Signed-off-by: Ross Burton <ross.burton@arm.com>

diff --git a/tests/interp.test b/tests/interp.test
index d7424847f..fc90990f3 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -3595,17 +3595,18 @@ test interp-36.7 {ChildBgerror sets error handler of child [1999035]} -setup {
         variable result
         set result [lindex $args 0]
     }
+    set tout [after 5000 {set result timeout}]
 } -body {
     child eval {
         variable done {}
         after 0 error foo
-        after 10 [list ::set [namespace which -variable done] {}]
-        vwait [namespace which -variable done]
     }
+    vwait result
     set result
 } -cleanup {
+    after cancel $tout
     variable result {}
-    unset -nocomplain result
+    unset -nocomplain result tout
     interp delete child
 } -result foo