diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2015-06-26 15:16:34 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2015-06-26 15:16:34 (GMT) |
| commit | 52f920ba571f8037fea360dbc653364c054e2138 (patch) | |
| tree | 6b885a5cbcd34339fa0405d4a9ed81b3d982df82 /library/msgcat | |
| parent | 14476f18e0076e7262045debdb428e64a353ae43 (diff) | |
| download | tcl-52f920ba571f8037fea360dbc653364c054e2138.zip tcl-52f920ba571f8037fea360dbc653364c054e2138.tar.gz tcl-52f920ba571f8037fea360dbc653364c054e2138.tar.bz2 | |
Tests for mcexists and mcloadedlocales
Diffstat (limited to 'library/msgcat')
| -rwxr-xr-x | library/msgcat/msgcat.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl index 8bef081..0991f1c 100755 --- a/library/msgcat/msgcat.tcl +++ b/library/msgcat/msgcat.tcl @@ -248,7 +248,7 @@ proc msgcat::mcexists {args} { set ns [uplevel 1 [list ::namespace current]] set loclist [PackagePreferences $ns] - while {[llength $args] > 1} { + while {[llength $args] != 1} { set args [lassign $args option] switch -glob -- $option { -exactnamespace { set exactnamespace 1 } |