* generic/tclUtil.c (TclReToGlob): fix the handling of the last

	* tests/regexpComp.test:	   star possibly being escaped in
	determining right anchor. [Bug 1902436]

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/regexpComp.test b/tests/regexpComp.test
index 0278033..c7a5980 100644
--- a/tests/regexpComp.test
+++ b/tests/regexpComp.test
@@ -909,6 +909,22 @@ test regexpComp-24.9 {regexp command compiling tests} {
 	list [catch {regexp -- $re dogfod} msg] $msg
     }
 } {1 {couldn't compile regular expression pattern: parentheses () not balanced}}
+test regexpComp-24.10 {regexp command compiling tests} {
+    # Bug 1902436 - last * escaped
+    evalInProc {
+	set text {this is *bold* !}
+	set re {\*bold\*}
+	regexp -- $re $text
+    }
+} 1
+test regexpComp-24.11 {regexp command compiling tests} {
+    # Bug 1902436 - last * escaped
+    evalInProc {
+	set text {this is *bold* !}
+	set re {\*bold\*.*!}
+	regexp -- $re $text
+    }
+} 1
 
 # cleanup
 ::tcltest::cleanupTests