diff options
author | Karl Williamson <public@khwilliamson.com> | 2010-11-20 09:15:59 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-20 18:15:17 -0800 |
commit | 13ca76ffd95cc6e92506a7d4201b24f653b3e3d8 (patch) | |
tree | a929c80ca745843835af068ba2d8492345881b4c /lib | |
parent | dc85bd38b5243856f77df4583119e0e85bd741ac (diff) | |
download | perl-13ca76ffd95cc6e92506a7d4201b24f653b3e3d8.tar.gz |
mktables: Clean up warning msg
This message actually printed, and I discovered the various components
ran together, needing white space to make it more readable.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/unicore/mktables | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index b4f75af0b6..2e061e1d3a 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -1382,10 +1382,11 @@ sub populate_char_info ($) { $end = min($block->containing_range($i)->end, $unassigned_sans_noncharacters-> containing_range($i)-> end); - } else { - my_carp_bug("Can't figure out how to annotate" - . sprintf("U+%04X", $i) - . "Proceeding anyway."); + } + else { + Carp::my_carp_bug("Can't figure out how to annotate " + . sprintf("U+%04X", $i) + . ". Proceeding anyway."); $viacode[$i] = 'UNKNOWN'; $annotate_char_type[$i] = $UNKNOWN_TYPE; $printable[$i] = 0; |