Silence a gcc warning

p4raw-id: //depot/perl@29186

diff --git a/regexec.c b/regexec.c
index 55a90d0..2380b3e 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -4679,13 +4679,13 @@ yes:
                PL_regmatch_slab = PL_regmatch_slab->prev;
                st = SLAB_LAST(PL_regmatch_slab);
            }
-            DEBUG_STATE_r(
+            DEBUG_STATE_r({
                if (no_final) {
                    DEBUG_STATE_pp("pop (no final)");        
                } else {
                    DEBUG_STATE_pp("pop (yes)");
                }
-           ); 
+               }); 
            depth--;
        }
 #else