avoid type mismatch warning

p4raw-id: //depot/perl@6154

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index ff730d7733..1cc1a87d04 100644
--- a/perl.c
+++ b/perl.c
@@ -1657,7 +1657,7 @@ Perl_call_sv(pTHX_ SV *sv, I32 flags)
 	method_op.op_next = PL_op;
 	method_op.op_ppaddr = PL_ppaddr[OP_METHOD];
 	myop.op_ppaddr = PL_ppaddr[OP_ENTERSUB];
-	PL_op = &method_op;
+	PL_op = (OP*)&method_op;
     }
 
     if (!(flags & G_EVAL)) {