From 2670d666ea6958d8b40e95a047b645f890fabc08 Mon Sep 17 00:00:00 2001
From: Benjamin Carter
 <q.eibcartereio.=~m-b.{6}-cgimosx@gumdrop.flyinganvil.org>
Date: Fri, 29 Jun 2007 18:42:59 -0500
Subject: [PATCH] regclass on EBCDIC platforms Message-ID:
 <20070630044259.GB22566@egg>

p4raw-id: //depot/perl@31507
---
 regcomp.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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