X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=op.c;h=e7f10421cb57675a5436ba948ba5dd09e1286c88;hb=2d5a560e6257e98fbb384456cc2d9b09a6b228b7;hp=9b07a2ffba9bdfdc45b7e33a29d4a178a0f1ce21;hpb=020f0e03c64f319bb529fa80a5fe18adf2ad1fa6;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/op.c b/op.c
index 9b07a2f..e7f1042 100644
--- a/op.c
+++ b/op.c
@@ -6658,6 +6658,10 @@ Perl_ck_split(pTHX_ OP *o)
     kid->op_type = OP_PUSHRE;
     kid->op_ppaddr = PL_ppaddr[OP_PUSHRE];
     scalar(kid);
+    if (ckWARN(WARN_REGEXP) && ((PMOP *)kid)->op_pmflags & PMf_GLOBAL) {
+      Perl_warner(aTHX_ packWARN(WARN_REGEXP),
+                  "Use of /g modifier is meaningless in split");
+    }
 
     if (!kid->op_sibling)
 	append_elem(OP_SPLIT, o, newDEFSVOP());