From b2c1d441ee004dbd0f56775bad4cf09d0d8125df Mon Sep 17 00:00:00 2001 From: andreas_kupries Date: Wed, 14 Apr 2010 19:42:28 +0000 Subject: * 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. --- ChangeLog | 8 ++++++++ library/platform/platform.tcl | 7 +++++-- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1b635f6..df846f2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2010-04-14 Andreas Kupries + + * 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. + 2010-04-06 Zoran Vasiljevic * generic/tclCmdMZ.c (Tcl_RegexpObjCmd): fixed object leak. 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 -- cgit v0.12