From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Fri, 13 Nov 2009 14:07:24 +0000 (-0500)
Subject: Fix compiler warning:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fea10cf637669988fe9f4b11a9a5981982c8450a;p=p5sagit%2Fp5-mst-13.2.git

Fix compiler warning:

p.c: In function `Perl_newATTRSUB':
op.c:5778: warning: cast from pointer to integer of different size
---

diff --git a/op.c b/op.c
index dcecdb6..6052186 100644
--- a/op.c
+++ b/op.c
@@ -5775,7 +5775,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
 		if (strEQ(name, "import")) {
 		    PL_formfeed = MUTABLE_SV(cv);
 		    /* diag_listed_as: SKIPME */
-		    Perl_warner(aTHX_ packWARN(WARN_VOID), "0x%"UVxf"\n", (UV)cv);
+		    Perl_warner(aTHX_ packWARN(WARN_VOID), "0x%"UVxf"\n", PTR2UV(cv));
 		}
 	    }
 	    GvCVGEN(gv) = 0;