Artifact
a4677caf7fb7330676db3ad345e306071e6261bb:
Attachment "DIFF" to
ticket [421166ffff]
added by
msofer
2001-05-04 04:03:23.
Also attachment "DIFF" to
ticket [420507ffff]
added by
msofer
2001-05-03 06:28:18.
Index: generic/tclParse.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclParse.c,v
retrieving revision 1.14
diff -r1.14 tclParse.c
863c863
< newObjv[0] = Tcl_NewStringObj("unknown", -1);
---
> newObjv[0] = Tcl_NewStringObj("::unknown", -1);
Index: tests/namespace.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/namespace.test,v
retrieving revision 1.14
diff -r1.14 namespace.test
1127a1128,1138
> test namespace-40.1 {Ignoring namespace proc "unknown"} {
> rename unknown _unknown
> proc unknown args {return global}
> namespace eval ns {proc unknown args {return local}}
> set l [list [namespace eval ns aaa bbb] [namespace eval ns aaa]]
> rename unknown {}
> rename _unknown unknown
> namespace delete ns
> set l
> } {global global}
>