diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-09-10 19:58:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-09-10 19:58:18 (GMT) |
| commit | 92b2164143a0904d5fbfa676747b065f89714cd2 (patch) | |
| tree | f95fd6a5257266fadabcbf74353efe3567220fc3 | |
| parent | cf639728be08cc76a7d1d89dd6ab303482bcfc09 (diff) | |
| parent | e5759a2dc4fcba761a5a25a858d434c8eee021d1 (diff) | |
| download | tcl-92b2164143a0904d5fbfa676747b065f89714cd2.zip tcl-92b2164143a0904d5fbfa676747b065f89714cd2.tar.gz tcl-92b2164143a0904d5fbfa676747b065f89714cd2.tar.bz2 | |
3th "load" argument should be Titlecase
Fix registry library name for Tcl 9
| -rw-r--r-- | library/clock.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 83c6e61..1a2a546 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -671,13 +671,13 @@ proc ::tcl::clock::EnterLocale { locale } { proc ::tcl::clock::_hasRegistry {} { set res 0 if { $::tcl_platform(platform) eq {windows} } { - if { [catch { package require registry 1.1 }] } { + if { [catch { package require registry 1.3 }] } { # try to load registry directly from root (if uninstalled / development env): if {[regexp {[/\\]library$} [info library]]} {catch { load [lindex \ [glob -tails -directory [file dirname [info nameofexecutable]] \ - tclreg*[expr {[::tcl::pkgconfig get debug] ? {g} : {}}].dll] 0 \ - ] registry + tcl9registry*[expr {[::tcl::pkgconfig get debug] ? {g} : {}}].dll] 0 \ + ] Registry }} } if { [namespace which -command ::registry] ne "" } { |