This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid compiler warning about a variable that isn't used when
[perl5.git] / regcomp.c
index 9612c93..db73dfb 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -2504,7 +2504,9 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
                         /* dont use tail as the end marker for this traverse */
                         for ( cur = startbranch ; cur != scan ; cur = regnext( cur ) ) {
                             regnode * const noper = NEXTOPER( cur );
+#if defined(DEBUGGING) || defined(NOJUMPTRIE)
                             regnode * const noper_next = regnext( noper );
+#endif
 
                             DEBUG_OPTIMISE_r({
                                 regprop(RExC_rx, mysv, cur);