Fix msgcat.test (in case a higher msgcat version is encountered, which is not included with Tcl 8.4)

<p>Doc fix in TCL_MEM_DEBUG.3

1 files changed, 7 insertions, 0 deletions

diff --git a/tests/msgcat.test b/tests/msgcat.test
index 237a482..3440106 100644
--- a/tests/msgcat.test
+++ b/tests/msgcat.test
@@ -55,6 +55,13 @@ namespace eval ::msgcat::test {
 	    if {[info exists ::tcl::mac::locale]} {
 		set result [string tolower $::tcl::mac::locale]
 	    } else {
+		if {([info sharedlibextension] == ".dll")
+			&& ![catch {package require registry}]} {
+		    # Windows and Cygwin have other ways to determine the
+		    # locale when the environment variables are missing
+		    # and the registry package is present
+		    continue
+		}
 		set result c
 	    }
 	}