diff options
| author | Benjamin Carter <q.eibcartereio.=~m-b.{6}-cgimosx@gumdrop.flyinganvil.org> | 2007-06-29 18:42:59 -0500 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2007-06-30 15:48:55 +0000 |
| commit | 2670d666ea6958d8b40e95a047b645f890fabc08 (patch) | |
| tree | b8e9618fd831c80b3765bc61819e59db8103a64c | |
| parent | f7819f85d6af0dcf9114284a4fe5ef21855e4e5a (diff) | |
| download | perl-2670d666ea6958d8b40e95a047b645f890fabc08.tar.gz | |
regclass on EBCDIC platforms
Message-ID: <20070630044259.GB22566@egg>
p4raw-id: //depot/perl@31507
| -rw-r--r-- | regcomp.c | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -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 |