regclass on EBCDIC platforms

Message-ID: <20070630044259.GB22566@egg>

p4raw-id: //depot/perl@31507

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