From 26b7dc6cfe26e29f19301da17ac8677263c14c3b Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Tue, 21 Jun 2011 22:19:09 +1000 Subject: Fix crash on dup of object with script rep Signed-off-by: Steve Bennett --- regtest.tcl | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'regtest.tcl') diff --git a/regtest.tcl b/regtest.tcl index 49a3d53..7561a60 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -135,6 +135,13 @@ puts "TEST 20 PASSED" subst "abc\0def" puts "TEST 21 PASSED" +# REGTEST 22 +# 21 June 2011 - crashes on lappend to to value with script rep +set x rand +eval $x +lappend x b +puts "TEST 22 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" -- cgit v1.1