study now passes REXEC_SCREAM to the regex engine when SvSCREAM() is true.

This causes the regex engine to take advantage of the study data.

3 files changed, 14 insertions, 2 deletions

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 1964832ab4..095785c629 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -71,6 +71,11 @@ may well be none in a stable release.
 
 The implementation of C<s///r> makes one fewer copy of the scalar's value.
 
+=item *
+
+If a studied scalar is C<split> with a regex, the engine will now take
+advantage of the C<study> data.
+
 =back
 
 =head1 Modules and Pragmata
diff --git a/pp.c b/pp.c
index d3d4cc81e8..f815d0a619 100644
--- a/pp.c
+++ b/pp.c
@@ -6152,7 +6152,7 @@ PP(pp_split)
 	    I32 rex_return;
 	    PUTBACK;
 	    rex_return = CALLREGEXEC(rx, (char*)s, (char*)strend, (char*)orig, 1 ,
-			    sv, NULL, 0);
+				     sv, NULL, SvSCREAM(sv) ? REXEC_SCREAM : 0);
 	    SPAGAIN;
 	    if (rex_return == 0)
 		break;
diff --git a/t/op/study.t b/t/op/study.t
index 0e3ddb6bcb..adf5e2bfd6 100644
--- a/t/op/study.t
+++ b/t/op/study.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 watchdog(10);
-plan(tests => 29);
+plan(tests => 30);
 use strict;
 use vars '$x';
 
@@ -85,3 +85,10 @@ TODO: {
     ok(!/G.F$/, 'bug 20010618.006');
     ok(!/[F]F$/, 'bug 20010618.006');
 }
+
+{
+    my $a = 'QaaQaabQaabbQ';
+    study $a;
+    my @a = split /aab*/, $a;
+    is("@a", 'Q Q Q Q', 'split with studied string passed to the regep engine');
+}