When changing the op_ppaddr of an op, one must keep its op_type

in sync. That helps writers of alternate runloops.

p4raw-id: //depot/perl@33026

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 907f9cf8e4..8b045e05cb 100644
--- a/perl.c
+++ b/perl.c
@@ -2610,7 +2610,9 @@ Perl_call_sv(pTHX_ SV *sv, I32 flags)
 	Zero(&method_op, 1, UNOP);
 	method_op.op_next = PL_op;
 	method_op.op_ppaddr = PL_ppaddr[OP_METHOD];
+	method_op.op_type = OP_METHOD;
 	myop.op_ppaddr = PL_ppaddr[OP_ENTERSUB];
+	myop.op_type = OP_ENTERSUB;
 	PL_op = (OP*)&method_op;
     }