From 71f74c483838db2e18a7756469aa8c7edc76c33f Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Sun, 13 Oct 2019 14:29:16 -0400
Subject: Fix assigning typed regex to FS and RS.

---
 io.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'io.c')

diff --git a/io.c b/io.c
index 710314cc..4bf389b5 100644
--- a/io.c
+++ b/io.c
@@ -4066,7 +4066,7 @@ set_RS()
 	if (RS->stlen == 0) {
 		RS_is_null = true;
 		matchrec = rsnullscan;
-	} else if (RS->stlen > 1 && ! do_traditional) {
+	} else if ((RS->stlen > 1 || (RS->flags & REGEX) != 0) && ! do_traditional) {
 		static bool warned = false;
 
 		RS_re[0] = make_regexp(RS->stptr, RS->stlen, false, true, true);
-- 
cgit v1.2.3