mirror of
https://git.yoctoproject.org/poky
synced 2026-02-06 16:56:37 +01:00
6a4296d252
Upstream submission should be done for tcl 9.x patches. (From OE-Core rev: 2671c3183a74617e79f6879b228f2df8055397fb) Signed-off-by: Alexander Kanavin <alex@linutronix.de> Signed-off-by: Mathieu Dubois-Briand <mathieu.dubois-briand@bootlin.com> Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
41 lines
1.3 KiB
Diff
41 lines
1.3 KiB
Diff
From 09049beed723243d092ffaa37939dfe0f2ed6828 Mon Sep 17 00:00:00 2001
|
|
From: Ross Burton <ross.burton@arm.com>
|
|
Date: Mon, 12 Jul 2021 14:50:13 +0100
|
|
Subject: [PATCH] tcl: fix race in interp.test
|
|
|
|
The interp-36.7 patch has race conditions and is missing cleanup. This patch by
|
|
a Tcl maintainer should improve matters.
|
|
|
|
Upstream-Status: Inappropriate [tcl 8.x is obsolete; upstream submission should be for 9.x patches]
|
|
Signed-off-by: Ross Burton <ross.burton@arm.com>
|
|
---
|
|
tests/interp.test | 7 ++++---
|
|
1 file changed, 4 insertions(+), 3 deletions(-)
|
|
|
|
diff --git a/tests/interp.test b/tests/interp.test
|
|
index 24ffb1b..c6460ad 100644
|
|
--- a/tests/interp.test
|
|
+++ b/tests/interp.test
|
|
@@ -3614,17 +3614,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
|
|
|