diff options
author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-06-30 12:34:06 -0400 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2007-07-01 12:03:35 +0000 |
commit | 39aa8307f3f2358b81eed6e9cadcba8c05567eec (patch) | |
tree | 95921c6a37fed6918959780a93fe56befe989d45 /regcomp.c | |
parent | c97ef8417f706238c83b6a3db825b056f5467926 (diff) | |
download | perl-39aa8307f3f2358b81eed6e9cadcba8c05567eec.tar.gz |
char is not a good type to use for array indexes;
should have been U8 in the first place.
Originally noticed by Jerry Hedden in
Subject: [PATCH] Compiler warning in regcomp.c
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706301334t337903a0k46abc6d2d25c68a5@mail.gmail.com>
p4raw-id: //depot/perl@31510
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |