diff options
author | sebres <sebres@users.sourceforge.net> | 2017-05-09 21:58:12 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-05-09 21:58:12 (GMT) |
commit | 0283b4f5f3320e17a8ec17c3ec2aa6c07b9a8911 (patch) | |
tree | 182c2e3249563354f32d676f8dea488daf9e3f76 /library | |
parent | 4ba2d9a81ad7f1d8b015c4f3f1dd0e6f603ecc3b (diff) | |
parent | db083499bfff8aee794512e3da2f0ad2f201f6b0 (diff) | |
download | tcl-0283b4f5f3320e17a8ec17c3ec2aa6c07b9a8911.zip tcl-0283b4f5f3320e17a8ec17c3ec2aa6c07b9a8911.tar.gz tcl-0283b4f5f3320e17a8ec17c3ec2aa6c07b9a8911.tar.bz2 |
back-ported branch sebres_trunk_timerate (new command "timerate" for 8.6)
Diffstat (limited to 'library')
-rwxr-xr-x | library/reg/pkgIndex.tcl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/library/reg/pkgIndex.tcl b/library/reg/pkgIndex.tcl index b1fe234..ab022ab 100755 --- a/library/reg/pkgIndex.tcl +++ b/library/reg/pkgIndex.tcl @@ -1,9 +1,19 @@ if {([info commands ::tcl::pkgconfig] eq "") - || ([info sharedlibextension] ne ".dll")} return + || ([info sharedlibextension] ne ".dll")} return if {[::tcl::pkgconfig get debug]} { + if {[info exists [file join $dir tclreg13g.dll]]} { package ifneeded registry 1.3.2 \ [list load [file join $dir tclreg13g.dll] registry] + } else { + package ifneeded registry 1.3.2 \ + [list load tclreg13g registry] + } } else { + if {[info exists [file join $dir tclreg13.dll]]} { package ifneeded registry 1.3.2 \ [list load [file join $dir tclreg13.dll] registry] + } else { + package ifneeded registry 1.3.2 \ + [list load tclreg13 registry] + } } |