summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-12-22 15:35:47 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-12-22 15:35:47 (GMT)
commitb9a9261bbab10a7aafec70649ea9995057c0c0b8 (patch)
tree7c4617105cac815c3aa69f8d5ac0d63196d69d91
parenta1d0d2dc435ce6072fbb7cf4f1b78ab2b05fdbc6 (diff)
downloadtcl-b9a9261bbab10a7aafec70649ea9995057c0c0b8.zip
tcl-b9a9261bbab10a7aafec70649ea9995057c0c0b8.tar.gz
tcl-b9a9261bbab10a7aafec70649ea9995057c0c0b8.tar.bz2
One more (interp==NULL) shortcut.
-rw-r--r--generic/tclCompCmds.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index b3568e8..106c293 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -4826,7 +4826,7 @@ PushVarName(
}
}
- if ((elName != NULL) && elNameChars) {
+ if (interp && (elName != NULL) && elNameChars) {
/*
* An array element, the element name is a simple string:
* assemble the corresponding token.