mingw/lib/reg1.2/pkgIndex.tcl

   1 if {![package vsatisfies [package provide Tcl] 8]} return
   2 if {[info sharedlibextension] != ".dll"} return
   3 if {[info exists ::tcl_platform(debug)]} {
   4     package ifneeded registry 1.2.2 \
   5             [list load [file join $dir tclreg12g.dll] registry]
   6 } else {
   7     package ifneeded registry 1.2.2 \
   8             [list load [file join $dir tclreg12.dll] registry]
   9 }