diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-06 15:01:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-06 15:01:20 (GMT) |
| commit | e91a377c60ebfec5c1b008e82bb7a1957a017a57 (patch) | |
| tree | bbe00a338a7f1592ed640efdfdf4aef79b14bb84 /library | |
| parent | d44a4ad52d0b00a08c267c26bfc3d8d64e3a66bf (diff) | |
| parent | 9da8f0ddaa24f80014d62a5ba9effd2388e67b1f (diff) | |
| download | tcl-e91a377c60ebfec5c1b008e82bb7a1957a017a57.zip tcl-e91a377c60ebfec5c1b008e82bb7a1957a017a57.tar.gz tcl-e91a377c60ebfec5c1b008e82bb7a1957a017a57.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library')
| -rw-r--r-- | library/init.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl index 33be0ac..5d8e55d 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -303,14 +303,14 @@ proc unknown args { 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*]] candidates] if {$name eq "::"} { set name "" } if {$ret != 0} { dict append opts -errorinfo \ "\n (expanding command prefix \"$name\" in unknown)" - return -options $opts $msg + return -options $opts $candidates } # Filter out bogus matches when $name contained # a glob-special char [Bug 946952] |