summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2006-10-05 11:38:49 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2006-10-05 11:38:49 (GMT)
commit46aff41e83607a2efd59982d1393cff759ba692e (patch)
tree93d883399106b6685342e1752f5dbdbd32ac1f6a /generic
parentc1ba6eb6f5ed3313ca72fb73bead393e6abefb96 (diff)
downloadtcl-46aff41e83607a2efd59982d1393cff759ba692e.zip
tcl-46aff41e83607a2efd59982d1393cff759ba692e.tar.gz
tcl-46aff41e83607a2efd59982d1393cff759ba692e.tar.bz2
* generic/tclVar.c (Tcl_LappendObjCmd):
* tests/append.test(4.21-22): fix for longstanding [Bug 1570718], lappending nothing to non-list. Reported by lvirden
Diffstat (limited to 'generic')
-rw-r--r--generic/tclVar.c9
1 files changed, 7 insertions, 2 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index e3daeff..0576114 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -15,7 +15,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.121 2006/08/10 12:15:31 dkf Exp $
+ * RCS: @(#) $Id: tclVar.c,v 1.122 2006/10/05 11:38:50 msofer Exp $
*/
#include "tclInt.h"
@@ -2365,7 +2365,12 @@ Tcl_LappendObjCmd(
if (newValuePtr == NULL) {
return TCL_ERROR;
}
- }
+ } else {
+ result = Tcl_ListObjLength(interp, newValuePtr, &numElems);
+ if (result != TCL_OK) {
+ return result;
+ }
+ }
} else {
/*
* We have arguments to append. We used to call Tcl_SetVar2 to append