peep.c - ensure deferred_queue is initialized before use

Perl · Mar 21, 2023 · b01dd2f · b01dd2f
1 parent 1bfa8f4
commit b01dd2f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/peep.c b/peep.c
@@ -2690,7 +2690,7 @@ Perl_rpeep(pTHX_ OP *o)
 {
     OP* oldop = NULL;
     OP* oldoldop = NULL;
-    OP** defer_queue[MAX_DEFERRED]; /* small queue of deferred branches */
+    OP** defer_queue[MAX_DEFERRED] = { NULL, NULL, NULL, NULL }; /* small queue of deferred branches */
     int defer_base = 0;
     int defer_ix = -1;