more purification (pp_require() could access free memory; vdie()

could think message was random length when passed a null argument;
utilize() didn't set up the hash for the method name leading to
pp_method_named() accessing random state; PL_curpm wasn't zeroed
properly)

p4raw-id: //depot/perl@5072

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index 524313d570..cef98878f9 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1670,7 +1670,7 @@ S_regtry(pTHX_ regexp *prog, char *startpos)
 	    SAVEDESTRUCTOR_X(restore_pos, 0);
         }
 	if (!PL_reg_curpm)
-	    New(22,PL_reg_curpm, 1, PMOP);
+	    Newz(22,PL_reg_curpm, 1, PMOP);
 	PL_reg_curpm->op_pmregexp = prog;
 	PL_reg_oldcurpm = PL_curpm;
 	PL_curpm = PL_reg_curpm;