diff options
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index 7026195b6b..008b593340 100644 --- 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); } } |