diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-10-03 01:10:16 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-10-03 01:10:16 (GMT) |
| commit | 0bb135c827e61a652002b80bbdd7fdb07861cfbe (patch) | |
| tree | 3e8340d5fedc02b5db2139bc222a9438202798cb /generic/tclInterp.c | |
| parent | 7f63510379f770d796ae0f0f267efc02220cc971 (diff) | |
| download | tcl-0bb135c827e61a652002b80bbdd7fdb07861cfbe.zip tcl-0bb135c827e61a652002b80bbdd7fdb07861cfbe.tar.gz tcl-0bb135c827e61a652002b80bbdd7fdb07861cfbe.tar.bz2 | |
Fix [2bf561854c55a], interp alias to command whose name is the empty string.
Diffstat (limited to 'generic/tclInterp.c')
| -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 a2de658..1bfe76a 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; } |