From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 21 May 2008 14:35:20 +0000 (+0000)
Subject: Make the worst case error message for Perl_croak_xs_usage() consistent
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8565890c866fc4b9562f5d1ac6f565c47d3a90df;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
     }
 }