summaryrefslogtreecommitdiffstats
path: root/library/platform
diff options
context:
space:
mode:
authorandreask <andreask>2013-04-30 18:43:28 (GMT)
committerandreask <andreask>2013-04-30 18:43:28 (GMT)
commit9e8ba3b5d77ed44876e3454cbf88fff15687c610 (patch)
tree36ba1cc4bd3fc43afe19c8c0d5aa6c7b950f7245 /library/platform
parent99ea4405aed6acebfa01e202fbf947decdfae5ee (diff)
downloadtcl-9e8ba3b5d77ed44876e3454cbf88fff15687c610.zip
tcl-9e8ba3b5d77ed44876e3454cbf88fff15687c610.tar.gz
tcl-9e8ba3b5d77ed44876e3454cbf88fff15687c610.tar.bz2
(::platform::LibcVersion): Followup to the 2013-01-30 change. The RE
become too restrictive again. SuSe added a timestamp after the version. Loosened up a bit. Bumped package to version 1.0.12.
Diffstat (limited to 'library/platform')
-rw-r--r--library/platform/platform.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl
index a1a728b..5698425 100644
--- a/library/platform/platform.tcl
+++ b/library/platform/platform.tcl
@@ -256,7 +256,7 @@ proc ::platform::LibcVersion {base _->_ vv} {
if {![catch {
set vdata [lindex [split [exec $libc] \n] 0]
}]} {
- regexp {version ([0-9]+(\.[0-9]+)*), by} $vdata -> v
+ regexp {version ([0-9]+(\.[0-9]+)*)} $vdata -> v
foreach {major minor} [split $v .] break
set v glibc${major}.${minor}
return 1
@@ -368,7 +368,7 @@ proc ::platform::patterns {id} {
# ### ### ### ######### ######### #########
## Ready
-package provide platform 1.0.11
+package provide platform 1.0.12
# ### ### ### ######### ######### #########
## Demo application