From d0c545cc65b329440189d7ebfec034137b26e0e7 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sat, 24 Oct 2015 07:40:30 +0000
Subject: Bring back regexp to wat it was in latest release. This is the
 correct fix for kbk's attempt.

---
 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 0160184..35a22a3 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 {^([^-]+)(-[0-9\.]+)?(-wow)?-([^-]+)$} $id -> plat ver wow cpu
+    regexp {^([^-]+)-([^-]+)$} $id -> plat cpu
 
     switch -- $plat {
 	solaris {
-- 
cgit v0.12