From 68ba3a3fdba75589a9e65167c7caeb83c4231690 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Sun, 21 Jan 2007 19:53:38 +0100 Subject: [PATCH] Disable positive lookaround optimisations Message-ID: <9b18b3110701210953l4df6198re36a9342e6049583@mail.gmail.com> Date: Sun, 21 Jan 2007 18:53:38 +0100 p4raw-id: //depot/perl@29923 --- regcomp.h | 2 +- t/op/re_tests | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) 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 -- 2.7.4