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:
f7819f8
)
regclass on EBCDIC platforms
author
Benjamin Carter
<q.eibcartereio.=~m-b.{6}-cgimosx@gumdrop.flyinganvil.org>
Fri, 29 Jun 2007 23:42:59 +0000
(18:42 -0500)
committer
Yves Orton
<demerphq@gmail.com>
Sat, 30 Jun 2007 15:48:55 +0000
(15:48 +0000)
Message-ID: <
20070630044259
.GB22566@egg>
p4raw-id: //depot/perl@31507
regcomp.c
patch
|
blob
|
history
diff --git
a/regcomp.c
b/regcomp.c
index
71cf68a
..
bcbfec3
100644
(file)
--- a/
regcomp.c
+++ b/
regcomp.c
@@
-8035,12
+8035,16
@@
parseit:
{
if (isLOWER(prevvalue)) {
for (i = prevvalue; i <= ceilvalue; i++)
- if (isLOWER(i))
+ if (isLOWER(i) && !ANYOF_BITMAP_TEST(ret,i)) {
+ stored++;
ANYOF_BITMAP_SET(ret, i);
+ }
} else {
for (i = prevvalue; i <= ceilvalue; i++)
- if (isUPPER(i))
+ if (isUPPER(i) && !ANYOF_BITMAP_TEST(ret,i)) {
+ stored++;
ANYOF_BITMAP_SET(ret, i);
+ }
}
}
else