Change 13857 by jhi@alpha on 2001/12/22 23:53:26
Subject: [PATCH] and [BUG] \X and \C fixed, \X still dorked
From: Jeffrey Friedl <[EMAIL PROTECTED]>
Date: Fri, 21 Dec 2001 23:18:17 -0800 (PST)
Message-Id: <[EMAIL PROTECTED]>
(partially applied, most of the new tests need to be rethought)
Affected files ...
.... //depot/perl/regcomp.c#258 edit
.... //depot/perl/t/op/re_tests#70 edit
Differences ...
==== //depot/perl/regcomp.c#258 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Sat Dec 22 17:00:05 2001
+++ perl/regcomp.c Sat Dec 22 17:00:05 2001
@@ -3017,6 +3017,8 @@
case '\\':
switch (*++p) {
case 'A':
+ case 'C':
+ case 'X':
case 'G':
case 'Z':
case 'z':
==== //depot/perl/t/op/re_tests#70 (text) ====
Index: perl/t/op/re_tests
--- perl/t/op/re_tests.~1~ Sat Dec 22 17:00:05 2001
+++ perl/t/op/re_tests Sat Dec 22 17:00:05 2001
@@ -797,3 +797,6 @@
(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
End of Patch.
