diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-11-09 22:36:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-11-09 22:36:39 (GMT) |
| commit | c69c58efa6a8335b33f5681b818245ae1da86be1 (patch) | |
| tree | 64fb44faa5b86d55cf442e032f8fd41eaac0a53c /tests/info.test | |
| parent | 81400277fe84e58e0ba9ad3ac57ad5637fe08b0f (diff) | |
| download | tcl-c69c58efa6a8335b33f5681b818245ae1da86be1.zip tcl-c69c58efa6a8335b33f5681b818245ae1da86be1.tar.gz tcl-c69c58efa6a8335b33f5681b818245ae1da86be1.tar.bz2 | |
* generic/tclBasic.c (TclEvalObjEx): Plug memory leak in
TCL_EVAL_DIRECT evaluation.
* tests/info.test: Resolve ambiguous resolution of variable "res".
Diffstat (limited to 'tests/info.test')
| -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 90cbb24..5c0478c 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.47.2.9 2009/08/25 21:01:05 andreas_kupries Exp $ +# RCS: @(#) $Id: info.test,v 1.47.2.10 2009/11/09 22:36:39 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -1034,7 +1034,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} { +test info-31.0 {ns eval, script in variable} {set res {} namespace eval foo $body set res } {type eval line 3 cmd {info frame 0} level 0} |