This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix misformed UVxf format in op.c
authorVincent Pit <vince@profvince.com>
Tue, 10 Nov 2009 22:26:44 +0000 (23:26 +0100)
committerVincent Pit <vince@profvince.com>
Tue, 10 Nov 2009 22:26:44 +0000 (23:26 +0100)
op.c

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