Tcl Source Code

Artifact c8a91f2055fef54a72756fd6fbfe9b81ab8c36de:

Attachment "tcl-8.4.13-upvar-msg.patch" to ticket [1639858fff] added by nobody 2007-01-20 04:02:21.

---

--- tcl8.4.13/generic/tclProc.c.orig	Mon Oct 24 01:01:30 2005
+++ tcl8.4.13/generic/tclProc.c	Thu Jan 18 22:17:56 2007
@@ -584,6 +584,7 @@
     } else {
 	level = curLevel - 1;
 	result = 0;
+	string = "1"; /* a hack to fix the error message if level is not found */
     }
 
     /*