diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-26 09:01:01 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-26 09:01:01 +0000 |
| commit | d008bc60a330e88cc6f47eda1a5f54cd7a179a26 (patch) | |
| tree | 5811da63b35b55e99b007405625d17e354bf9da2 /regcomp.c | |
| parent | d1dd14d181429d212fd9a151420ef70f36122ded (diff) | |
| download | perl-d008bc60a330e88cc6f47eda1a5f54cd7a179a26.tar.gz | |
Some variables are used only with DEBUGGING
p4raw-id: //depot/perl@29991
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -6155,7 +6155,9 @@ S_reg_namedseq(pTHX_ RExC_state_t *pRExC_state, UV *valuep) char *s; char *p, *pend; STRLEN charlen = 1; +#ifdef DEBUGGING char * parse_start = name-3; /* needed for the offsets */ +#endif GET_RE_DEBUG_FLAGS_DECL; /* needed for the offsets */ ret = reg_node(pRExC_state, @@ -6488,7 +6490,9 @@ tryagain: case 'P': { char* const oldregxend = RExC_end; +#ifdef DEBUGGING char* parse_start = RExC_parse - 2; +#endif if (RExC_parse[1] == '{') { /* a lovely hack--pretend we saw [\pX] instead */ |