From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Mon, 30 Oct 2006 14:14:25 +0000 (+0000)
Subject: $hex is already hex, so cannot be used in %X if starting with [A-F]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9b5be9b5aa498a302ab752a0d1cdb335a620ede2;p=p5sagit%2Fp5-mst-13.2.git

$hex is already hex, so cannot be used in %X if starting with [A-F]

p4raw-id: //depot/perl@29156
---

diff --git a/lib/charnames.pm b/lib/charnames.pm
index 00faa69..ef1472c 100644
--- a/lib/charnames.pm
+++ b/lib/charnames.pm
@@ -270,7 +270,7 @@ sub viacode
 
   # checking the length first is slightly faster
   if (length($hex) > 5 && hex($hex) > 0x10FFFF) {
-    carp sprintf "Unicode characters only allocated up to U+10FFFF (you asked for U+%X)", $hex;
+    carp "Unicode characters only allocated up to U+10FFFF (you asked for U+$hex)";
     return;
   }