From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 26 Jan 2007 09:01:01 +0000 (+0000)
Subject: Some variables are used only with DEBUGGING
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d008bc60a330e88cc6f47eda1a5f54cd7a179a26;p=p5sagit%2Fp5-mst-13.2.git

Some variables are used only with DEBUGGING

p4raw-id: //depot/perl@29991
---

diff --git a/regcomp.c b/regcomp.c
index 6ff796c..db25fb2 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -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 */