From: Yves Orton 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;hp=c40f158517a2eb8c99b09f2c54334b34b71acd64;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 (?ABC)foo bar>ABCfoo n - - (?)foo bar>ABCfoo y $& foo -(?ABC)foo bar>ABCfoo y $& ABCfoo \ No newline at end of file +(?ABC)foo bar>ABCfoo y $& ABCfoo + +(?<=abcd(?<=(aaaabcd))) ..aaaabcd.. y $1 aaaabcd +(?=xy(?<=(aaxy))) ..aaxy.. y $1 aaxy