summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorandreask <andreask>2013-04-30 18:49:08 (GMT)
committerandreask <andreask>2013-04-30 18:49:08 (GMT)
commit9ca6724841c604ad1f96839464f68279fdf0e0ca (patch)
tree908d4a5b5373ef38ea25f1681f20b007494810ba /library
parent1d75b0eb9444d42e7399a40853deb8bb47a88e4d (diff)
parent2b8bf20f0c1da50e84efd533d43739a1737896a7 (diff)
downloadtcl-9ca6724841c604ad1f96839464f68279fdf0e0ca.zip
tcl-9ca6724841c604ad1f96839464f68279fdf0e0ca.tar.gz
tcl-9ca6724841c604ad1f96839464f68279fdf0e0ca.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')
-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