From b40c3af17683766d1e1359c9ceb4dd7178f6afc5 Mon Sep 17 00:00:00 2001
From: Kevin B Kenny <kennykb@acm.org>
Date: Fri, 23 Oct 2015 22:29:23 +0000
Subject: Correct bad regexp in platform::identify that causes it to return
 incorrect results everywhere.

---
 library/platform/platform.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/platform/platform.tcl b/library/platform/platform.tcl
index c596e60..0160184 100644
--- a/library/platform/platform.tcl
+++ b/library/platform/platform.tcl
@@ -165,7 +165,7 @@ proc ::platform::identify {} {
     global tcl_platform
 
     set id [generic]
-    regexp {^([^-]+)-([^-]+)$} $id -> plat ver wow cpu
+    regexp {^([^-]+)(-[0-9\.]+)?(-wow)?-([^-]+)$} $id -> plat ver wow cpu
 
     switch -- $plat {
 	solaris {
-- 
cgit v0.12