diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-25 11:15:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-25 11:15:48 (GMT) |
| commit | 00a4f18c383b2b24cb09871621ff49f7ea98e758 (patch) | |
| tree | 01ef1c109e44a59df93b2679d9e8df2ea143487d /generic | |
| parent | 8f0b94f037c765b9068d39a7f3d7a0f69ed2d3de (diff) | |
| parent | 9d34b872ced6c6713cf84f914f11a017ecd2cd49 (diff) | |
| download | tcl-00a4f18c383b2b24cb09871621ff49f7ea98e758.zip tcl-00a4f18c383b2b24cb09871621ff49f7ea98e758.tar.gz tcl-00a4f18c383b2b24cb09871621ff49f7ea98e758.tar.bz2 | |
When sourcing script files (even when simulating that through open|read), always set -eofchar \032 just like the source command does.
Possible security issue: this could make it possible to evaluate hidden content at the end of pkgIndex files.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 56757ff..769074b 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -903,7 +903,7 @@ TclNRUplevelObjCmd( Tcl_Obj *objPtr; if (objc < 2) { - /* to do + /* to do * simplify things by interpreting the argument as a command when there * is only one argument. This requires a TIP since currently a single * argument is interpreted as a level indicator if possible. |