From: Benjamin Carter <q.eibcartereio.=~m-b.{6}-cgimosx@gumdrop.flyinganvil.org>
Date: Fri, 29 Jun 2007 23:42:59 +0000 (-0500)
Subject: regclass on EBCDIC platforms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2670d666ea6958d8b40e95a047b645f890fabc08;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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