avoid PTR->IV cast warnings

p4raw-id: //depot/perl@4605

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 6cfc95734b..80fb550010 100644
--- a/op.c
+++ b/op.c
@@ -3365,7 +3365,7 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o)
 	SV **svp = av_fetch(CopFILEAV(PL_curcop), (I32)CopLINE(cop), FALSE);
 	if (svp && *svp != &PL_sv_undef && !SvIOK(*svp)) {
 	    (void)SvIOK_on(*svp);
-	    SvIVX(*svp) = (IV)cop;
+	    SvIVX(*svp) = PTR2IV(cop);
 	}
     }