Tcl Source Code: Artifact [ff358db2fd]

Artifact ff358db2fd482a35b344c899168a2c7153ff8355:

Attachment "safe.tcl.patch" to ticket [3004191fff] added by johannes-kuhn 2010-05-20 00:08:40.

Index: safe.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/safe.tcl,v
retrieving revision 1.37
diff -u -r1.37 safe.tcl
--- safe.tcl	30 Dec 2009 22:26:43 -0000	1.37
+++ safe.tcl	19 May 2010 17:07:13 -0000
@@ -771,6 +771,8 @@
     } on error msg {
 	Log $slave $msg
 	return -code error "script error"
+    } on ok msg {
+	# we set msg here
     }
 
     Log $slave "GLOB @ $msg" NOTICE