From bfafcb9a4c258bd72d8c22f5d8af5edc8897f48e Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 15 Jun 2011 13:05:11 +0200
Subject: 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.
---
 pp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pp.c')

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;
-- 
cgit v1.2.1