diff options
| author | hobbs <hobbs@noemail.net> | 1999-11-30 08:37:01 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 1999-11-30 08:37:01 (GMT) |
| commit | 13c9b3e4e286ca1d557f73a86725ae8be34883ac (patch) | |
| tree | e2ee8c6a1b3ceed265811755d99152741f1ee909 /library/reg | |
| parent | 81ab524baa617b88e9e7e4bc61c805dff06fd8a3 (diff) | |
| download | tcl-13c9b3e4e286ca1d557f73a86725ae8be34883ac.zip tcl-13c9b3e4e286ca1d557f73a86725ae8be34883ac.tar.gz tcl-13c9b3e4e286ca1d557f73a86725ae8be34883ac.tar.bz2 | |
* library/dde1.1/pkgIndex.tcl:
* library/reg1.0/pkgIndex.tcl: added supported for debugged
versions of the libraries
FossilOrigin-Name: 6f4b62c8eea552e70e58004768afaaa61467eab3
Diffstat (limited to 'library/reg')
| -rwxr-xr-x | library/reg/pkgIndex.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/library/reg/pkgIndex.tcl b/library/reg/pkgIndex.tcl index 7f34997..5c2218c 100755 --- a/library/reg/pkgIndex.tcl +++ b/library/reg/pkgIndex.tcl @@ -1 +1,7 @@ -package ifneeded registry 1.0 "load [list [file join $dir tclreg83.dll]] registry"
+if {[info exists tcl_platform(debug)]} {
+ package ifneeded registry 1.0 \
+ [list load [file join $dir tclreg83d.dll] registry]
+} else {
+ package ifneeded registry 1.0 \
+ [list load [file join $dir tclreg83.dll] registry]
+}
|