Deprecate no space after s/a/b/ and keyword

Pattern replacements need to have the deprecation added; the prior patch
on this ticket only changed m/a/keyword; this adds the s/a/b/keyword

1 files changed, 7 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 8cbe28a829..7da7ab9469 100644
--- a/toke.c
+++ b/toke.c
@@ -11974,8 +11974,14 @@ S_scan_subst(pTHX_ char *start)
 	}
 	else if (strchr(S_PAT_MODS, *s))
 	    pm->op_pmflags = S_pmflag(pm->op_pmflags, *s++);
-	else
+	else {
+	    if (isALNUM(*s)) {
+		Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX),
+		    "Having no space between pattern and following word is deprecated");
+
+	    }
 	    break;
+	}
     }
 
 #ifdef PERL_MAD