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)));