From 9e8ba3b5d77ed44876e3454cbf88fff15687c610 Mon Sep 17 00:00:00 2001
From: andreask <andreask>
Date: Tue, 30 Apr 2013 18:43:28 +0000
Subject: (::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.

---
 ChangeLog                     | 8 ++++++++
 library/platform/platform.tcl | 4 ++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 11efb0f..11ecbf8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2013-04-30  Andreas Kupries  <andreask@activestate.com>
+
+	* library/platform/platform.tcl (::platform::LibcVersion):
+	* library/platform/pkgIndex.tcl: 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.
+
 2013-04-25  Jan Nijtmans  <nijtmans@users.sf.net>
 
 	* win/tclWinDde.c:		Update dde to version 1.3.3.
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
-- 
cgit v0.12