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, 0 deletions

diff --git a/util.c b/util.c
index 031922a9f9..a63dd3ffe8 100644
--- a/util.c
+++ b/util.c
@@ -1504,6 +1504,7 @@ Perl_vdie(pTHX_ const char* pat, va_list *args)
     }
     else {
 	message = Nullch;
+	msglen = 0;
     }
 
     DEBUG_S(PerlIO_printf(Perl_debug_log,