Tcl Source Code

Artifact 8b3eb4bff7fdbfa1a22bdbe47491e590d0ff01ff:

Attachment "1036649.patch" to ticket [1036649fff] added by msofer 2004-09-29 17:57:34.

---

Index: generic/tclBasic.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
retrieving revision 1.75.2.9
diff -u -r1.75.2.9 tclBasic.c
--- generic/tclBasic.c	28 Jul 2004 16:28:20 -0000	1.75.2.9
+++ generic/tclBasic.c	29 Sep 2004 10:45:59 -0000
@@ -3727,6 +3727,16 @@
 	    return TCL_OK;
 	}
     } while (bytesLeft > 0);
+
+    if (nested) {
+	/*
+	 * This nested script did not terminate in ']', it is an error.
+	 */
+	
+	code = TCL_ERROR;
+	goto error;
+    }
+    
     iPtr->termOffset = p - script;
     iPtr->varFramePtr = savedVarFramePtr;
     return TCL_OK;