From 535ce8fed169767e1bc834660e3088f5bccb603c Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Fri, 16 Dec 2011 12:58:50 +1000 Subject: Fix bug when calling ref finalizers Commit 21d7fc318 introduced a bug where the finalizer was freed too early Signed-off-by: Steve Bennett --- regtest.tcl | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'regtest.tcl') diff --git a/regtest.tcl b/regtest.tcl index 0be3830..d144152 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -196,6 +196,14 @@ catch { } msg puts "TEST 27 PASSED" +# REGTEST 28 +# 16 Dec 2011 - ref count problem with finalizers +catch { + ref x x [list dummy] + collect +} +puts "TEST 28 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" -- cgit v1.1