summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-06-24 19:50:40 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-24 19:50:40 +0000
commitf06dbbb7326ef8a9ac427a089dffdd9affcac342 (patch)
treea82edfd5e660efe6568b9440e1af19052651adcb /regcomp.c
parent13280709f35de7368a60751961ed524221ca433a (diff)
downloadperl-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.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index a12f4e1aa7..9be1523ada 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -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++;