[packages/tcl.git] / libc-version.patch

--- tcl8.5.13/library/platform/platform.tcl.orig	2012-11-06 16:04:59.000000000 +0100
+++ tcl8.5.13/library/platform/platform.tcl	2013-01-01 14:14:42.116858289 +0100
@@ -256,7 +256,7 @@
     if {![catch {
 	set vdata [lindex [split [exec $libc] \n] 0]
     }]} {
-	regexp {([0-9]+(\.[0-9]+)*)} $vdata -> v
+	regexp {version ([0-9]+(\.[0-9]+)*), by } $vdata -> v
 	foreach {major minor} [split $v .] break
 	set v glibc${major}.${minor}
 	return 1
Commit	Line	Data
e3ba2ea6 PS	1	--- tcl8.5.13/library/platform/platform.tcl.orig 2012-11-06 16:04:59.000000000 +0100
	2	+++ tcl8.5.13/library/platform/platform.tcl 2013-01-01 14:14:42.116858289 +0100
	3	@@ -256,7 +256,7 @@
	4	if {![catch {
	5	set vdata [lindex [split [exec $libc] \n] 0]
	6	}]} {
	7	- regexp {([0-9]+(\.[0-9]+)*)} $vdata -> v
	8	+ regexp {version ([0-9]+(\.[0-9]+)*), by } $vdata -> v
	9	foreach {major minor} [split $v .] break
	10	set v glibc${major}.${minor}
	11	return 1