Fix onetrueawk#83 (#84)

1 files changed, 6 insertions, 0 deletions

diff --git a/b.c b/b.c
index 545fb7d..7174eda 100644
--- a/b.c
+++ b/b.c
@@ -1105,6 +1105,12 @@ rescan:
 						if (!adjbuf((char **) &buf, &bufsz, bp-buf+1, 100, (char **) &bp, "relex2"))
 						    FATAL("out of space for reg expr %.10s...", lastre);
 						if (cc->cc_func(i)) {
+							/* escape backslash */
+							if (i == '\\') {
+								*bp++ = '\\';
+								n++;
+							}
+
 							*bp++ = i;
 							n++;
 						}