summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2015-10-24 07:40:30 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2015-10-24 07:40:30 (GMT)
commitd0c545cc65b329440189d7ebfec034137b26e0e7 (patch)
tree6e58f9f8f145777e061db9a8695111a65a1d804e /library
parent357ca2067d11e6a7520d106c5b06158caeecdf5b (diff)
downloadtcl-d0c545cc65b329440189d7ebfec034137b26e0e7.zip
tcl-d0c545cc65b329440189d7ebfec034137b26e0e7.tar.gz
tcl-d0c545cc65b329440189d7ebfec034137b26e0e7.tar.bz2
Bring back regexp to wat it was in latest release. This is the correct fix for kbk's attempt.
Diffstat (limited to 'library')
-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 {