summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-11-10 22:42:06 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-11-10 22:42:06 (GMT)
commitd081bdaefdd5c97a2957145ea3f0ed540aa55942 (patch)
tree5e68bff272addf4657c3e95aaaabaff686717b47 /library
parent32aba931e84dea723663e8d37fa621e161e4b50e (diff)
downloadtcl-d081bdaefdd5c97a2957145ea3f0ed540aa55942.zip
tcl-d081bdaefdd5c97a2957145ea3f0ed540aa55942.tar.gz
tcl-d081bdaefdd5c97a2957145ea3f0ed540aa55942.tar.bz2
* library/dde/pkgIndex.tcl: Added safeguards so that registry
* library/reg/pkgIndex.tcl: and dde packages are not offered * win/tclWinDde.c: on non-Windows platforms. Bumped to * win/tclWinReg.c: registry 1.1.3 and dde 1.2.2.
Diffstat (limited to 'library')
-rw-r--r--library/dde/pkgIndex.tcl5
-rwxr-xr-xlibrary/reg/pkgIndex.tcl5
2 files changed, 6 insertions, 4 deletions
diff --git a/library/dde/pkgIndex.tcl b/library/dde/pkgIndex.tcl
index 49201f4..b293134 100644
--- a/library/dde/pkgIndex.tcl
+++ b/library/dde/pkgIndex.tcl
@@ -1,6 +1,7 @@
if {![package vsatisfies [package provide Tcl] 8]} {return}
+if {[string compare $::tcl_platform(platform) windows]} {return}
if {[info exists ::tcl_platform(debug)]} {
- package ifneeded dde 1.2.1 [list load [file join $dir tcldde12g.dll] dde]
+ package ifneeded dde 1.2.2 [list load [file join $dir tcldde12g.dll] dde]
} else {
- package ifneeded dde 1.2.1 [list load [file join $dir tcldde12.dll] dde]
+ package ifneeded dde 1.2.2 [list load [file join $dir tcldde12.dll] dde]
}
diff --git a/library/reg/pkgIndex.tcl b/library/reg/pkgIndex.tcl
index ad9a54b..55775f2 100755
--- a/library/reg/pkgIndex.tcl
+++ b/library/reg/pkgIndex.tcl
@@ -1,8 +1,9 @@
if {![package vsatisfies [package provide Tcl] 8]} {return}
+if {[string compare $::tcl_platform(platform) windows]} {return}
if {[info exists ::tcl_platform(debug)]} {
- package ifneeded registry 1.1.2 \
+ package ifneeded registry 1.1.3 \
[list load [file join $dir tclreg11g.dll] registry]
} else {
- package ifneeded registry 1.1.2 \
+ package ifneeded registry 1.1.3 \
[list load [file join $dir tclreg11.dll] registry]
}