Change 29991 by [EMAIL PROTECTED] on 2007/01/26 09:01:01
Some variables are used only with DEBUGGING
Affected files ...
... //depot/perl/regcomp.c#545 edit
Differences ...
==== //depot/perl/regcomp.c#545 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#544~29842~ 2007-01-16 02:56:46.000000000 -0800
+++ perl/regcomp.c 2007-01-26 01:01:01.000000000 -0800
@@ -6155,7 +6155,9 @@
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 @@
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 */
End of Patch.
