From 0f79a09d62eb410185d697430134f937ab4e917d Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 13 Feb 2000 19:02:07 +0000 Subject: 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 --- perl.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl.c') 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); } -- cgit v1.2.1