summaryrefslogtreecommitdiffstats
path: root/library/msgcat/msgcat.tcl
diff options
context:
space:
mode:
authordrh <drh@sqlite.org>2002-07-17 19:14:47 (GMT)
committerdrh <drh@sqlite.org>2002-07-17 19:14:47 (GMT)
commit5625494c13f92f83294785e3691a89450f40c21a (patch)
tree50d78f982ddc5919d9964e0a5703e7d49a74824a /library/msgcat/msgcat.tcl
parent023276a9b9bbb4085068a13aafc1ed53f72ea197 (diff)
downloadtcl-5625494c13f92f83294785e3691a89450f40c21a.zip
tcl-5625494c13f92f83294785e3691a89450f40c21a.tar.gz
tcl-5625494c13f92f83294785e3691a89450f40c21a.tar.bz2
Fix a comment that was causing problems for programs (like "mktclapp") that
embed the initialization script in strings. No changes to code.
Diffstat (limited to 'library/msgcat/msgcat.tcl')
-rw-r--r--library/msgcat/msgcat.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl
index fdfa091..771511f 100644
--- a/library/msgcat/msgcat.tcl
+++ b/library/msgcat/msgcat.tcl
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: msgcat.tcl,v 1.15 2002/06/17 16:37:11 dgp Exp $
+# RCS: @(#) $Id: msgcat.tcl,v 1.16 2002/07/17 19:14:52 drh Exp $
package require Tcl 8.2
package provide msgcat 1.3
@@ -387,14 +387,14 @@ proc msgcat::ConvertLocale {value} {
# Convert to form: $language[_$territory][_$modifier]
#
# Comment out expanded RE version -- bugs alleged
- #regexp -expanded {
+ # regexp -expanded {
# ^ # Match all the way to the beginning
# ([^_.@]*) # Match "lanugage"; ends with _, ., or @
# (_([^.@]*))? # Match (optional) "territory"; starts with _
# ([.]([^@]*))? # Match (optional) "codeset"; starts with .
# (@(.*))? # Match (optional) "modifier"; starts with @
# $ # Match all the way to the end
- #} $value -> language _ territory _ codeset _ modifier
+ # } $value -> language _ territory _ codeset _ modifier
regexp {^([^_.@]*)(_([^.@]*))?([.]([^@]*))?(@(.*))?$} $value \
-> language _ territory _ codeset _ modifier
set ret $language