From 2238887c088e88d799e6cde81ea201c00155ff94 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 15 Sep 2020 15:51:00 +0000
Subject: Add test for [string replace] troubles.

---
 tests/string.test | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tests/string.test b/tests/string.test
index ba0780a..eca1d33 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -1665,6 +1665,9 @@ test stringComp-14.24.$noComp {Bug 1af8de570511} {
 test stringComp-14.25.$noComp {} {
     string length [string replace [string repeat a\xFE 2] 3 end {}]
 } 3
+test stringComp-14.26.$noComp {} {
+    run {string replace abcd 0x10000000000000000-0xffffffffffffffff 2 e}
+} aed
 
 test string-15.1.$noComp {string tolower too few args} {
     list [catch {run {string tolower}} msg] $msg
-- 
cgit v0.12


From 929fdafe13779bc173fe3b80069405044044171c Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 16 Sep 2020 06:51:36 +0000
Subject: Little tweak to makeHeader.tcl, not depending on lsearch returning -1
 any more

---
 tools/makeHeader.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/makeHeader.tcl b/tools/makeHeader.tcl
index e9b7ed1..dd2f199 100644
--- a/tools/makeHeader.tcl
+++ b/tools/makeHeader.tcl
@@ -70,7 +70,7 @@ namespace eval makeHeader {
 
 	set from [lsearch -glob $data $BEGIN]
 	set to [lsearch -glob $data $END]
-	if {$from == -1 || $to == -1 || $from >= $to} {
+	if {$from < 0 || $to < 0 || $from >= $to} {
 	    throw BAD "not a template"
 	}
 
-- 
cgit v0.12