From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 28 May 2000 21:04:19 +0000 (+0000)
Subject: avoid type mismatch warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f39d0b86ee5f9f99b2300012ab6be91fafbb04e4;p=p5sagit%2Fp5-mst-13.2.git

avoid type mismatch warning

p4raw-id: //depot/perl@6154
---

diff --git a/perl.c b/perl.c
index ff730d7..1cc1a87 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)) {