diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-01-21 19:53:38 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-22 19:39:28 +0000 |
| commit | 68ba3a3fdba75589a9e65167c7caeb83c4231690 (patch) | |
| tree | 6c8ef1d8fc2e72721a323333242962029ef80735 | |
| parent | c40f158517a2eb8c99b09f2c54334b34b71acd64 (diff) | |
| download | perl-68ba3a3fdba75589a9e65167c7caeb83c4231690.tar.gz | |
Disable positive lookaround optimisations
Message-ID: <9b18b3110701210953l4df6198re36a9342e6049583@mail.gmail.com>
Date: Sun, 21 Jan 2007 18:53:38 +0100
p4raw-id: //depot/perl@29923
| -rw-r--r-- | regcomp.h | 2 | ||||
| -rw-r--r-- | t/op/re_tests | 5 |
2 files changed, 5 insertions, 2 deletions
@@ -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 1700588013..fca6b11f4e 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 |