This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In S_regatom(), set flags to 0 at the start.
[perl5.git] / regcomp.c
index a57f462..06b9f79 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -10056,7 +10056,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
 {
     dVAR;
     regnode *ret = NULL;
-    I32 flags;
+    I32 flags = 0;
     char *parse_start = RExC_parse;
     U8 op;
     int invert = 0;