summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>1998-06-23 18:15:23 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>1998-06-23 18:15:23 +0000
commitba7e4437aa27a0775f31400cfe7bcaf273e14ef3 (patch)
tree9dd37616d934a5c958ddd16501d691dc025bf90a /regcomp.c
parent4e61ee4d2394e4b120037f733150ee6041bf95f2 (diff)
parent9666903d92ab8cdd420a0bc714d5c94ce051cb2c (diff)
downloadperl-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.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/regcomp.c b/regcomp.c
index 45f1e9a91f..2b71d99a40 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -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;