From: Yves Orton <demerphq@gmail.com>
Date: Sun, 21 Jan 2007 18:53:38 +0000 (+0100)
Subject: Disable positive lookaround optimisations
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=68ba3a3fdba75589a9e65167c7caeb83c4231690;p=p5sagit%2Fp5-mst-13.2.git

Disable positive lookaround optimisations
Message-ID: <9b18b3110701210953l4df6198re36a9342e6049583@mail.gmail.com>
Date: Sun, 21 Jan 2007 18:53:38 +0100

p4raw-id: //depot/perl@29923
---

diff --git a/regcomp.h b/regcomp.h
index 898fb8e..51b14b7 100644
--- a/regcomp.h
+++ b/regcomp.h
@@ -18,7 +18,7 @@ typedef OP OP_4tree;			/* Will be redefined later. */
 #define PERL_ENABLE_EXTENDED_TRIE_OPTIMISATION 1
 
 /* Should the optimiser take positive assertions into account? */
-#define PERL_ENABLE_POSITIVE_ASSERTION_STUDY 1
+#define PERL_ENABLE_POSITIVE_ASSERTION_STUDY 0
 
 /* Not for production use: */
 #define PERL_ENABLE_EXPERIMENTAL_REGEX_OPTIMISATIONS 0
diff --git a/t/op/re_tests b/t/op/re_tests
index 1700588..fca6b11 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -1264,4 +1264,7 @@ a*(*F)	aaaab	n	-	-
 (?<=bar>ABC)foo	bar>ABCfoo	y	$&	foo
 (?<!bar>ABC)foo	bar>ABCfoo	n	-	-
 (?<bar>)foo	bar>ABCfoo	y	$&	foo
-(?<bar>ABC)foo	bar>ABCfoo	y	$&	ABCfoo
\ No newline at end of file
+(?<bar>ABC)foo	bar>ABCfoo	y	$&	ABCfoo
+
+(?<=abcd(?<=(aaaabcd)))	..aaaabcd..	y	$1	aaaabcd
+(?=xy(?<=(aaxy)))	..aaxy..	y	$1	aaxy