diff options
| author | andreas_kupries <akupries@shaw.ca> | 2010-04-14 19:42:28 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2010-04-14 19:42:28 (GMT) |
| commit | b2c1d441ee004dbd0f56775bad4cf09d0d8125df (patch) | |
| tree | 58520b07f92547162a06dca7b520f50cd161f1dd /library/platform/platform.tcl | |
| parent | a8d78114d69c42639beecfc8d0bfed9bddb55c08 (diff) | |
| download | tcl-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.tcl | 7 |
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 |