remove outdated -DPURIFY code--it reports bogus errors during global

destruction since we actually depend on SVs being in arenas there

p4raw-id: //depot/perl@5074

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 189183647e..bab92b855d 100644
--- a/perl.c
+++ b/perl.c
@@ -1453,7 +1453,7 @@ Perl_call_method(pTHX_ const char *methname, I32 flags)
     dSP;
     OP myop;
     if (!PL_op) {
-	myop.op_next = Nullop;
+	Zero(&myop, 1, OP);
 	PL_op = &myop;
     }
     XPUSHs(sv_2mortal(newSVpv(methname,0)));