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 (file)
--- 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;