diff options
| author | andreas_kupries <andreas_kupries@noemail.net> | 2009-11-10 17:57:39 (GMT) |
|---|---|---|
| committer | andreas_kupries <andreas_kupries@noemail.net> | 2009-11-10 17:57:39 (GMT) |
| commit | bd0de42522d81730668102d50ff8b74fc8634e2f (patch) | |
| tree | 20d35c6979a77c618278963093dbb94cb6891c17 /tests | |
| parent | 794d9065fd0342321f6be3ab09182c70b3b5fb7a (diff) | |
| download | tcl-bd0de42522d81730668102d50ff8b74fc8634e2f.zip tcl-bd0de42522d81730668102d50ff8b74fc8634e2f.tar.gz tcl-bd0de42522d81730668102d50ff8b74fc8634e2f.tar.bz2 | |
* generic/tclObj.c: Plus memory leak in TclContinuationsEnter().
[Bug 2895323]. Forward port from Tcl 8.5 branch, change by Don
Porter.
FossilOrigin-Name: c4d00afb1adb698158c0856cf7d936f25714b6b2
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/info.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/info.test b/tests/info.test index da54562..21b7712 100644 --- a/tests/info.test +++ b/tests/info.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: info.test,v 1.70 2009/11/09 22:59:13 andreas_kupries Exp $ +# RCS: @(#) $Id: info.test,v 1.71 2009/11/10 17:57:39 andreas_kupries Exp $ if {{::tcltest} ni [namespace children]} { package require tcltest 2 @@ -1033,7 +1033,7 @@ set body {set flag 0 set a c set res [info frame 0]} ;# line 3! -test info-31.0 {ns eval, script in variable} -body {set res {} +test info-31.0 {ns eval, script in variable} -body {namespace eval foo {variable res {}} namespace eval foo $body return $foo::res } -result {type eval line 3 cmd {info frame 0} level 0} -cleanup { |