From 05a4e7931d2d75fe87a18f15484553b9aa62b545 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Sun, 16 Sep 2018 20:29:55 +0300
Subject: Add lint warning for accessing $0 in an END rule.

---
 field.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'field.c')

diff --git a/field.c b/field.c
index 52963249..3bcfb421 100644
--- a/field.c
+++ b/field.c
@@ -837,6 +837,13 @@ get_field(long requested, Func_ptr *assign)
 	 * then the whole line must be rebuilt
 	 */
 	if (requested == 0) {
+		static bool warned = false;
+		extern int currule;
+
+		if (do_lint && currule == END) {
+			warned = true;
+			lintwarn(_("accessing $0 from an END rule may not be portable"));
+		}
 		if (! field0_valid) {
 			/* first, parse remainder of input record */
 			if (NF == -1) {
-- 
cgit v1.2.3