diff options
| author | Jeffrey Friedl <jfriedl@regex.info> | 2001-12-21 15:18:17 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-22 23:53:26 +0000 |
| commit | 1ed8eac0dfbbdc6acb022ff1733a2473c102328b (patch) | |
| tree | 86220f92a7f886970baf232a4560ff0244572cac | |
| parent | b8d68ded2ba9139a0c1050157b6f240617f5dd65 (diff) | |
| download | perl-1ed8eac0dfbbdc6acb022ff1733a2473c102328b.tar.gz | |
and [BUG] \X and \C fixed, \X still dorked
Message-Id: <200112220718.fBM7IHG25075@ventrue.corp.yahoo.com>
(partially applied, most of the new tests need to be rethought)
p4raw-id: //depot/perl@13857
| -rw-r--r-- | regcomp.c | 2 | ||||
| -rw-r--r-- | t/op/re_tests | 3 |
2 files changed, 5 insertions, 0 deletions
@@ -3017,6 +3017,8 @@ tryagain: case '\\': switch (*++p) { case 'A': + case 'C': + case 'X': case 'G': case 'Z': case 'z': diff --git a/t/op/re_tests b/t/op/re_tests index 3d939a6635..c3e177d6aa 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -797,3 +797,6 @@ ab(?i)cd abCd y - - (A|B)*?(?(1)(CD)|(CD)) CD y $2-$3 -CD # [ID 20010803.016] (A|B)*?(?(1)(CD)|(CD)) ABCD y $2-$3 CD- '^(o)(?!.*\1)'i Oo n - - +a.c !abc! y $& abc +a\Cc !abc! y $& abc +a\Xc !abc! y $& abc |