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

diff --git a/regcomp.c b/regcomp.c
index 463b778..4cfd3db 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -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 3d939a6..c3e177d 100644 (file)
--- 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