This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Quiet false warning
[perl5.git] / regcomp.c
index 92c8fe4..4594bca 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -12309,7 +12309,7 @@ S_grok_bslash_N(pTHX_ RExC_state_t *pRExC_state,
     char * endbrace;    /* points to '}' following the name */
     char* p = RExC_parse; /* Temporary */
 
-    SV * substitute_parse;
+    SV * substitute_parse = NULL;
     char *orig_end;
     char *save_start;
     I32 flags;