diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-10-30 14:14:25 +0000 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-10-30 14:14:25 +0000 |
| commit | 9b5be9b5aa498a302ab752a0d1cdb335a620ede2 (patch) | |
| tree | 63dca41553bd0452a8607cf5857510356d9b00c0 /lib/charnames.pm | |
| parent | d06fc7d4ca982fb56f0bbeb3d160a8e6c2f856da (diff) | |
| download | perl-9b5be9b5aa498a302ab752a0d1cdb335a620ede2.tar.gz | |
$hex is already hex, so cannot be used in %X if starting with [A-F]
p4raw-id: //depot/perl@29156
Diffstat (limited to 'lib/charnames.pm')
| -rw-r--r-- | lib/charnames.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm index 00faa6902c..ef1472c31d 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; } |