projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b8d68de
)
and [BUG] \X and \C fixed, \X still dorked
author
Jeffrey Friedl
<jfriedl@regex.info>
Fri, 21 Dec 2001 23:18:17 +0000
(15:18 -0800)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sat, 22 Dec 2001 23:53:26 +0000
(23:53 +0000)
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
patch
|
blob
|
history
t/op/re_tests
patch
|
blob
|
history
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