summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorpooryorick <com.digitalsmarties@pooryorick.com>2016-10-03 01:10:16 (GMT)
committerpooryorick <com.digitalsmarties@pooryorick.com>2016-10-03 01:10:16 (GMT)
commit0bb135c827e61a652002b80bbdd7fdb07861cfbe (patch)
tree3e8340d5fedc02b5db2139bc222a9438202798cb
parent7f63510379f770d796ae0f0f267efc02220cc971 (diff)
downloadtcl-0bb135c827e61a652002b80bbdd7fdb07861cfbe.zip
tcl-0bb135c827e61a652002b80bbdd7fdb07861cfbe.tar.gz
tcl-0bb135c827e61a652002b80bbdd7fdb07861cfbe.tar.bz2
Fix [2bf561854c55a], interp alias to command whose name is the empty string.
-rw-r--r--generic/tclInterp.c11
-rw-r--r--tests/interp.test11
2 files changed, 14 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;
}
diff --git a/tests/interp.test b/tests/interp.test
index 34b5bf9..ed76f1a 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -606,6 +606,17 @@ test interp-14.10 {testing interp-alias: error messages} -setup {
invoked from within
"a 1"}
+test interp-14.11 {{interp alias} {target named the empty string} {bug 2bf56185}} -setup {
+ set interp [interp create [info cmdcount]]
+ interp eval $interp {
+ proc {} args {return $args}
+ }
+
+} -body {
+ interp alias {} p1 $interp {}
+ p1 one two three
+} -result {one two three}
+
# part 15: testing file sharing
test interp-15.1 {testing file sharing} {
catch {interp delete z}