From d6aa043a18b1a1bef907fbdc70d9e4afd20f85c2 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Tue, 27 Feb 2024 18:21:33 +0000
Subject: small amend for better readability (no RE needed, faster utf prefix
 compare)

---
 library/msgcat/msgcat.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/msgcat/msgcat.tcl b/library/msgcat/msgcat.tcl
index 0c7f515..589da7a 100644
--- a/library/msgcat/msgcat.tcl
+++ b/library/msgcat/msgcat.tcl
@@ -1222,7 +1222,7 @@ proc msgcat::mcutil::ConvertLocale {value} {
 proc ::msgcat::PackageNamespaceGet {} {
     set ns [uplevel 2 { namespace current }]
     
-    if {![regexp -- {^::oo::} $ns]} {
+    if {![string match {::oo::*} $ns]} {
 	# Not in object environment
 	return $ns
     }
-- 
cgit v0.12