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.

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

(limited to 'field.c')

diff --git a/field.c b/field.c
index feba8fd8..8814233a 100644
--- a/field.c
+++ b/field.c
@@ -1311,7 +1311,7 @@ choose_fs_function:
 			warned = true;
 			lintwarn(_("null string for `FS' is a gawk extension"));
 		}
-	} else if (fs->stlen > 1) {
+	} else if (fs->stlen > 1 || (fs->flags & REGEX) != 0) {
 		if (do_lint_old)
 			lintwarn(_("old awk does not support regexps as value of `FS'"));
 		set_parser(re_parse_field);
-- 
cgit v1.2.3