From: Jeffrey Friedl <jfriedl@regex.info>
Date: Fri, 21 Dec 2001 23:18:17 +0000 (-0800)
Subject: and [BUG]   \X and \C fixed, \X still dorked
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ed8eac0dfbbdc6acb022ff1733a2473c102328b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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