Let the regex parser decide if we have a special pattern or not.

Message-ID: <9b18b3110701081546n2c3f19acy29adc0d233bb848c@mail.gmail.com>

p4raw-id: //depot/perl@29730

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index 450589045d..4523584068 100644
--- a/pp.c
+++ b/pp.c
@@ -4629,7 +4629,7 @@ PP(pp_split)
 		++s;
 	}
     }
-    else if (rx->precomp[0] == '^' && rx->precomp[1] == '\0') {
+    else if (rx->extflags & RXf_START_ONLY) {
 	while (--limit) {
 	    for (m = s; m < strend && *m != '\n'; m++)
 		;