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 | 4acadf8d7735df752772eb9708d76bb81d6cecf4 (patch) | |
| tree | 6b885a5cbcd34339fa0405d4a9ed81b3d982df82 /library | |
| parent | 23f6fa6d86cce6e3841ecdaf19957d0313407f28 (diff) | |
| download | tcl-4acadf8d7735df752772eb9708d76bb81d6cecf4.zip tcl-4acadf8d7735df752772eb9708d76bb81d6cecf4.tar.gz tcl-4acadf8d7735df752772eb9708d76bb81d6cecf4.tar.bz2 | |
Tests for mcexists and mcloadedlocales
Diffstat (limited to 'library')
| -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 } |