Artifact
21d8c5a0f65938521386c9bb59b1bae8dee607d8078a6d60cb2887f5c82515a2:
Attachment "init-unknown-86.patch" to
ticket [86b3c15f0c]
added by
kjnash
2024-02-02 19:15:48.
diff -Naur original/library/init.tcl patched/library/init.tcl
--- original/library/init.tcl 2023-08-21 02:45:35.424433637 +0100
+++ patched/library/init.tcl 2024-02-02 18:41:18.049045928 +0000
@@ -371,7 +371,10 @@
return -options $::tcl::UnknownOptions $::tcl::UnknownResult
}
- set ret [catch {set candidates [info commands $name*]} msg]
+ set ret [catch [list uplevel 1 [list info commands $name*]] msg]
+ if {$ret == 0} {
+ set candidates $msg
+ }
if {$name eq "::"} {
set name ""
}