diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2007-08-01 12:09:02 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2007-08-01 12:09:02 (GMT) |
| commit | 24d28892567192aedf221dde8efe1939487fd017 (patch) | |
| tree | ce546534c024d201fb99411e9c494f039221ef1d /generic/tclVar.c | |
| parent | c78aef8e3103f916ede55e36edd8f5fb876ab0f6 (diff) | |
| download | tcl-24d28892567192aedf221dde8efe1939487fd017.zip tcl-24d28892567192aedf221dde8efe1939487fd017.tar.gz tcl-24d28892567192aedf221dde8efe1939487fd017.tar.bz2 | |
* generic/tclVar.c (TclCleanupVar): fix [Bug 1765225], thx Larry
Virden.
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index d032cef..967f539 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclVar.c,v 1.145 2007/07/31 17:03:41 msofer Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.146 2007/08/01 12:09:04 msofer Exp $ */ #include "tclInt.h" @@ -286,7 +286,7 @@ TclCleanupVar( Var *arrayPtr) /* Array that contains the variable, or NULL * if this variable isn't an array element. */ { - return CleanupVar(varPtr, arrayPtr); + CleanupVar(varPtr, arrayPtr); } |