16accb6b24
- 264 license table entries with exact download URLs (224/264 resolved) - Complete sources/ directory with all BitBake recipes - Build configuration: tqma6ul-multi-mba6ulx, spaetzle (musl) - Full traceability for Softwarefreigabeantrag - GCC 13.4.0, Linux 6.6.102, U-Boot 2023.04, musl 1.2.4 - License distribution: GPL-2.0 (24), MIT (23), GPL-2.0+ (18), BSD-3 (16)
33 lines
958 B
Diff
33 lines
958 B
Diff
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
|
|
|