From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 21 Jan 2008 13:08:11 +0000 (+0000)
Subject: When changing the op_ppaddr of an op, one must keep its op_type
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=377b1098958349a561ae80eec0745a3418c2ddb4;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/perl.c b/perl.c
index 907f9cf..8b045e0 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;
     }