Attachment "808319.patch" to
ticket [808319ffff]
added by
dgp
2003-09-22 23:31:15.
Index: library/init.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/init.tcl,v
retrieving revision 1.56
diff -u -r1.56 init.tcl
--- library/init.tcl 4 Mar 2003 23:46:00 -0000 1.56
+++ library/init.tcl 22 Sep 2003 16:29:33 -0000
@@ -168,7 +168,8 @@
# command, including the command name.
proc unknown args {
- global auto_noexec auto_noload env unknown_pending tcl_interactive
+ variable ::tcl::UnknownPending
+ global auto_noexec auto_noload env tcl_interactive
global errorCode errorInfo
# If the command word has the form "namespace inscope ns cmd"
@@ -196,18 +197,18 @@
#
# Make sure we're not trying to load the same proc twice.
#
- if {[info exists unknown_pending($name)]} {
+ if {[info exists UnknownPending($name)]} {
return -code error "self-referential recursion in \"unknown\" for command \"$name\"";
}
- set unknown_pending($name) pending;
+ set UnknownPending($name) pending;
set ret [catch {auto_load $name [uplevel 1 {::namespace current}]} msg]
- unset unknown_pending($name);
+ unset UnknownPending($name);
if {$ret != 0} {
append errorInfo "\n (autoloading \"$name\")"
return -code $ret -errorcode $errorCode -errorinfo $errorInfo $msg
}
- if {![array size unknown_pending]} {
- unset unknown_pending
+ if {![array size UnknownPending]} {
+ unset UnknownPending
}
if {$msg} {
set errorCode $savedErrorCode