Make the worst case error message for Perl_croak_xs_usage() consistent

with stringifying a code reference.

p4raw-id: //depot/perl@33902

diff --git a/universal.c b/universal.c
index 7026195..008b593 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -329,7 +329,7 @@ Perl_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
            Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params);
     } else {
        /* Pants. I don't think that it should be possible to get here. */
-       Perl_croak(aTHX_ "Usage: CODE(%"UVXf")(%s)", (UV)cv, params);
+       Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", (UV)cv, params);
     }
 }