regsub: fix substitution with a trailing backslash

Should just replace with the bare backslash, not backslash '\0'

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 5 insertions, 0 deletions

diff --git a/tests/regexp.test b/tests/regexp.test
index 7fa3ee0..a4e3f73 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -644,6 +644,11 @@ test regexp-21.14 {Literal newline in pattern} {
     regexp -all -inline "\n(\[ \t\]+)" "\n\t\t# This  is  a test"
 } "{\n\t\t} {\t\t}"
 
+test regexp-21.15 {Replace literal backslash} {
+    regsub -all <bs> {<bs>abc<bs>def} \\ value
+    set value
+} "\\abc\\def"
+
 test regexp-22.1 {effect of caching} jim {
 
     set filedata {BEGIN_TABLE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; END_TABLE}