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, 3 insertions, 3 deletions

diff --git a/perl.c b/perl.c
index 1da8b0ed43..189183647e 100644
--- a/perl.c
+++ b/perl.c
@@ -1452,13 +1452,13 @@ Perl_call_method(pTHX_ const char *methname, I32 flags)
 {
     dSP;
     OP myop;
-    if (!PL_op)
+    if (!PL_op) {
+	myop.op_next = Nullop;
 	PL_op = &myop;
+    }
     XPUSHs(sv_2mortal(newSVpv(methname,0)));
     PUTBACK;
     pp_method();
-	if(PL_op == &myop)
-		PL_op = Nullop;
     return call_sv(*PL_stack_sp--, flags);
 }