diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-05-21 14:35:20 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-05-21 14:35:20 +0000 |
| commit | 8565890c866fc4b9562f5d1ac6f565c47d3a90df (patch) | |
| tree | fa5b5ea2f7382b44aaead554cb1a0fd956ab0d68 /universal.c | |
| parent | afa74d4282044c64ab152392003f47bb0674abd2 (diff) | |
| download | perl-8565890c866fc4b9562f5d1ac6f565c47d3a90df.tar.gz | |
Make the worst case error message for Perl_croak_xs_usage() consistent
with stringifying a code reference.
p4raw-id: //depot/perl@33902
Diffstat (limited to 'universal.c')
| -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); } } |