Remove the deprecated $* variable.

Incidentally, this fixes bug #22354, about unwanted
action-at-distance of the /m regexp modifier.
Add a new warning to advertise this fact.

p4raw-id: //depot/perl@19769

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index ef8a37db67..eccf7eb0c9 100644
--- a/pp.c
+++ b/pp.c
@@ -4553,7 +4553,7 @@ PP(pp_split)
 		s++;
 	}
     }
-    if (pm->op_pmflags & (PMf_MULTILINE|PMf_SINGLELINE)) {
+    if ((pm->op_pmflags & PMf_MULTILINE) != PL_multiline) {
 	SAVEINT(PL_multiline);
 	PL_multiline = pm->op_pmflags & PMf_MULTILINE;
     }