Tcl Source Code

Artifact 30a3b4016e3af175c126f57febf053f94b0927e2:

Attachment "patchMsgcat" to ticket [781609ffff] added by nobody 2003-08-01 23:59:13.

---

--- library/msgcat/msgcat.tcl	2002/08/20 15:33:32	84.4
+++ library/msgcat/msgcat.tcl	2003/08/01 16:50:04	84.4.1.1
@@ -421,6 +421,12 @@
 	    return
 	}
     }
+
+    if { $::tcl_platform(platform) ne windows } {
+        mclocale C
+	return
+    }
+
     #
     # On Windows, try to set locale depending on registry settings,
     # or fall back on locale of "C".  Other platforms will return