summaryrefslogtreecommitdiffstats
path: root/library/platform/platform.tcl
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2010-04-14 19:42:28 (GMT)
committerandreas_kupries <akupries@shaw.ca>2010-04-14 19:42:28 (GMT)
commitb2c1d441ee004dbd0f56775bad4cf09d0d8125df (patch)
tree58520b07f92547162a06dca7b520f50cd161f1dd /library/platform/platform.tcl
parenta8d78114d69c42639beecfc8d0bfed9bddb55c08 (diff)
downloadtcl-b2c1d441ee004dbd0f56775bad4cf09d0d8125df.zip
tcl-b2c1d441ee004dbd0f56775bad4cf09d0d8125df.tar.gz
tcl-b2c1d441ee004dbd0f56775bad4cf09d0d8125df.tar.bz2
* library/platform/platform.tcl: Linux platform identification:
Check /lib64 for existence of files matching libc* before accepting it as base directory. This can happen on weirdly installed 32bit systems which have an empty or partially filled /lib64 without an actual libc. Bumped to version 1.0.6.
Diffstat (limited to 'library/platform/platform.tcl')
-rw-r--r--library/platform/platform.tcl7
1 files changed, 5 insertions, 2 deletions
diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl
index 1a454cd..d132c6f 100644
--- a/library/platform/platform.tcl
+++ b/library/platform/platform.tcl
@@ -175,7 +175,10 @@ proc ::platform::identify {} {
set v unknown
- if {[file exists /lib64] && [file isdirectory /lib64]} {
+ if {[file exists /lib64] &&
+ [file isdirectory /lib64] &&
+ [llength [glob -nocomplain -directory /lib64 libc*]]
+ } {
set base /lib64
} else {
set base /lib
@@ -289,7 +292,7 @@ proc ::platform::patterns {id} {
# ### ### ### ######### ######### #########
## Ready
-package provide platform 1.0.5
+package provide platform 1.0.6
# ### ### ### ######### ######### #########
## Demo application