char is not a good type to use for array indexes;

[perl5.git] / regcomp.c

diff --git a/regcomp.c b/regcomp.c
index bcbfec3..60b31ed 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4766,8 +4766,8 @@ reStudy:
             r->extflags |= (RXf_SKIPWHITE|RXf_WHITE); 
     else {
         regnode *first = ri->program + 1;
-        char fop = OP(first);
-        char nop = OP(NEXTOPER(first));
+        U8 fop = OP(first);
+        U8 nop = OP(NEXTOPER(first));
         
          if (PL_regkind[fop] == BOL && nop == END) 
             r->extflags |= RXf_START_ONLY;