and [BUG] \X and \C fixed, \X still dorked
Jeffrey Friedl [Fri, 21 Dec 2001 23:18:17 +0000 (15:18 -0800)]
Message-Id: <200112220718.fBM7IHG25075@ventrue.corp.yahoo.com>

(partially applied, most of the new tests need to be rethought)

p4raw-id: //depot/perl@13857

regcomp.c
t/op/re_tests

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':
index 3d939a6..c3e177d 100644 (file)
@@ -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