From ab74a66c1b92c3d84ce39d764794225acc630a62 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Wed, 27 Apr 2016 18:16:28 +0300
Subject: Fix multicharacter RS in traditional/posix modes.

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

(limited to 'io.c')

diff --git a/io.c b/io.c
index 3a5748b2..ca5545e7 100644
--- a/io.c
+++ b/io.c
@@ -3668,7 +3668,7 @@ set_RS()
 	if (RS->stlen == 0) {
 		RS_is_null = true;
 		matchrec = rsnullscan;
-	} else if (RS->stlen > 1) {
+	} else if (RS->stlen > 1 && ! do_traditional) {
 		static bool warned = false;
 
 		RS_re_yes_case = make_regexp(RS->stptr, RS->stlen, false, true, true);
-- 
cgit v1.2.3