toke.c: 'Specialized /le message is only for substitutes

m//le  has to be the lexical comparison, so use the generic deprecation
for that case

1 files changed, 8 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index f7f08492af..380722aba9 100644
--- a/toke.c
+++ b/toke.c
@@ -8798,6 +8798,14 @@ S_pmflag(pTHX_ const char* const valid_flags, U32 * pmfl, char** s) {
 		goto deprecate;
 	    }
 	    else if (*((*s) + 1) == 'e' && ! isALNUM(*((*s) + 2))) {
+
+		/* 'e' is valid only for substitutes, s///e.  If it is not
+		 * valid in the current context, then 'm//le' must mean the
+		 * comparison operator, so use the regular deprecation message.
+		 */
+		if (! strchr(valid_flags, 'e')) {
+		    goto deprecate;
+		}
 		Perl_ck_warner_d(aTHX_ packWARN(WARN_AMBIGUOUS),
 		    "Ambiguous use of 's//le...' resolved as 's// le...'; Rewrite as 's//el' if you meant 'use locale rules and evaluate rhs as an expression'.  In Perl 5.16, it will be resolved the other way");
 		return FALSE;