diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-10-28 21:10:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-10-28 21:10:57 (GMT) |
| commit | 557786360893e144c08ad7342f414ff0720164bf (patch) | |
| tree | 1c66fefae37804382af08ce8383b880944a3cc15 | |
| parent | cf3b90a2ccebaba6be1c6ea1a6a6de8a3214c8a5 (diff) | |
| download | tcl-557786360893e144c08ad7342f414ff0720164bf.zip tcl-557786360893e144c08ad7342f414ff0720164bf.tar.gz tcl-557786360893e144c08ad7342f414ff0720164bf.tar.bz2 | |
* generic/tclLiteral.c: Backport fix for [Bug 2888044].
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | generic/tclLiteral.c | 3 |
2 files changed, 6 insertions, 1 deletions
@@ -1,3 +1,7 @@ +2009-10-28 Don Porter <dgp@users.sourceforge.net> + + * generic/tclLiteral.c: Backport fix for [Bug 2888044]. + 2009-10-28 Kevin B. Kenny <kennykb@acm.org> * tests/fileName.test (fileName-20.[78]): Corrected poor test diff --git a/generic/tclLiteral.c b/generic/tclLiteral.c index 0a45f4d..a3c50c3 100644 --- a/generic/tclLiteral.c +++ b/generic/tclLiteral.c @@ -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: tclLiteral.c,v 1.33 2007/12/13 15:23:19 dgp Exp $ + * RCS: @(#) $Id: tclLiteral.c,v 1.33.2.1 2009/10/28 21:10:57 dgp Exp $ */ #include "tclInt.h" @@ -136,6 +136,7 @@ TclCleanupLiteralTable( objPtr->typePtr = NULL; typePtr->freeIntRepProc(objPtr); didOne = 1; + break; } else { entryPtr = nextPtr; } |