From fea10cf637669988fe9f4b11a9a5981982c8450a Mon Sep 17 00:00:00 2001 From: "Jerry D. Hedden" Date: Fri, 13 Nov 2009 09:07:24 -0500 Subject: Fix compiler warning: p.c: In function `Perl_newATTRSUB': op.c:5778: warning: cast from pointer to integer of different size --- op.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/op.c b/op.c index dcecdb60c4..6052186002 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; -- cgit v1.2.1