diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-10-03 14:53:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-10-03 14:53:32 (GMT) |
| commit | 29b9de871c077bc29d700f3e42c7cc94df45efb7 (patch) | |
| tree | 09f40aa1bd1ccf9a2e1edc9620015d2bbfef30fa /generic | |
| parent | 5aa514f49a4e2d698bb62a30c0b4877193f76a6e (diff) | |
| download | tcl-29b9de871c077bc29d700f3e42c7cc94df45efb7.zip tcl-29b9de871c077bc29d700f3e42c7cc94df45efb7.tar.gz tcl-29b9de871c077bc29d700f3e42c7cc94df45efb7.tar.bz2 | |
(cherry-pick): Fix [2bf561854c55a], interp alias to command whose name is the empty string.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclInterp.c | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 66ce1e0..8a0d653 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -660,14 +660,9 @@ NRInterpCmd( if (masterInterp == NULL) { return TCL_ERROR; } - if (TclGetString(objv[5])[0] == '\0') { - if (objc == 6) { - return AliasDelete(interp, slaveInterp, objv[3]); - } - } else { - return AliasCreate(interp, slaveInterp, masterInterp, objv[3], - objv[5], objc - 6, objv + 6); - } + + return AliasCreate(interp, slaveInterp, masterInterp, objv[3], + objv[5], objc - 6, objv + 6); } goto aliasArgs; } |