summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-10-24 07:43:33 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-10-24 07:43:33 (GMT)
commitccc9970e65e75dc95fd697a5f31f622217ed8ccb (patch)
treefeda1d90ef252f8f66e6de9385eb347a9c6a0b7a
parentfa55d6d012bbf4fb7847db0a29710fa0bcd15d5c (diff)
parentd0c545cc65b329440189d7ebfec034137b26e0e7 (diff)
downloadtcl-ccc9970e65e75dc95fd697a5f31f622217ed8ccb.zip
tcl-ccc9970e65e75dc95fd697a5f31f622217ed8ccb.tar.gz
tcl-ccc9970e65e75dc95fd697a5f31f622217ed8ccb.tar.bz2
Bring back regexp to what it was in latest release. This is the correct fix for the problem noted by kbk. Thanks! And thanks to dkf for the test-case
-rw-r--r--library/platform/platform.tcl2
1 files changed, 1 insertions, 1 deletions
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 {