This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Silence compiler warning
authorKarl Williamson <khw@cpan.org>
Mon, 2 Dec 2019 17:05:38 +0000 (10:05 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 2 Dec 2019 17:10:31 +0000 (10:10 -0700)
regcomp.c

index 11dc8f7..ce3830e 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -14601,8 +14601,8 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
                 /* If we do need to fold the node, we need a place to store the
                  * folded copy, and a way to map back to the unfolded original
                  * */
-                char * locfold_buf;
-                Size_t * loc_correspondence;
+                char * locfold_buf = NULL;
+                Size_t * loc_correspondence = NULL;
 
                 if (! need_to_fold_loc) {   /* The normal case.  Just
                                                initialize to the actual node */