Make "err" a weak keyword;

that is, it will be overriden by any sub named "err", except when
really an operator is expected at this point. ([perl #32347])

p4raw-id: //depot/perl@23519

1 files changed, 10 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 7c9d88f4d9..a7a9068151 100644
--- a/toke.c
+++ b/toke.c
@@ -4037,6 +4037,16 @@ Perl_yylex(pTHX)
 	    {
 		tmp = 0;		/* any sub overrides "weak" keyword */
 	    }
+	    else if (gv && !gvp
+		    && tmp == -KEY_err
+		    && GvCVu(gv)
+		    && PL_expect != XOPERATOR
+		    && PL_expect != XTERMORDORDOR)
+	    {
+		/* any sub overrides the "err" keyword, except when really an
+		 * operator is expected */
+		tmp = 0;
+	    }
 	    else {			/* no override */
 		tmp = -tmp;
 		if (tmp == KEY_dump && ckWARN(WARN_MISC)) {