This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regmatch(): silence OpenWatcom compiler warnings
[perl5.git] / regexec.c
index d0560ce..cf8d82e 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -4862,6 +4862,12 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
                    }
                    last_pushed_cv = newcv;
                }
+               else {
+                    /* these assignments are just to silence compiler
+                     * warnings */
+                   multicall_cop = NULL;
+                   newsp = NULL;
+               }
                last_pad = PL_comppad;
 
                /* the initial nextstate you would normally execute