diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-06-23 18:15:23 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-06-23 18:15:23 +0000 |
commit | ba7e4437aa27a0775f31400cfe7bcaf273e14ef3 (patch) | |
tree | 9dd37616d934a5c958ddd16501d691dc025bf90a /regcomp.c | |
parent | 4e61ee4d2394e4b120037f733150ee6041bf95f2 (diff) | |
parent | 9666903d92ab8cdd420a0bc714d5c94ce051cb2c (diff) | |
download | perl-ba7e4437aa27a0775f31400cfe7bcaf273e14ef3.tar.gz |
Integrate mainline c. 5.004_68 into ansiperl, mainly
so see what has changed...
p4raw-id: //depot/ansiperl@1208
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -267,6 +267,10 @@ study_chunk(regnode **scanp, I32 *deltap, regnode *last, scan_data_t *data, U32 /* Allow dumping */ n = scan + (*OPERAND(scan) + 2 - 1)/sizeof(regnode) + 2; while (n <= stop) { + /* Purify reports a benign UMR here sometimes, because we + * don't initialize the OP() slot of a node when that node + * is occupied by just the trailing null of the string in + * an EXACT node */ if (regkind[(U8)OP(n)] != NOTHING || OP(n) == NOTHING) { OP(n) = OPTIMIZED; NEXT_OFF(n) = 0; |