diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 19:50:40 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 19:50:40 +0000 |
commit | f06dbbb7326ef8a9ac427a089dffdd9affcac342 (patch) | |
tree | a82edfd5e660efe6568b9440e1af19052651adcb /regcomp.c | |
parent | 13280709f35de7368a60751961ed524221ca433a (diff) | |
download | perl-f06dbbb7326ef8a9ac427a089dffdd9affcac342.tar.gz |
Partially fix a problem noticed by IRIX compiler:
the initialization of parse_start was bypassed by
several gotos. Now initialized to zero, which may
not be the best choice.
p4raw-id: //depot/perl@10906
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -2678,6 +2678,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp) { register regnode *ret = 0; I32 flags; + char *parse_start = 0; *flagp = WORST; /* Tentatively. */ @@ -2951,7 +2952,8 @@ tryagain: register char *p; char *oldp, *s; STRLEN numlen; - char *parse_start = RExC_parse - 1; + + parse_start = RExC_parse - 1; RExC_parse++; |