summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2010-11-20 09:15:59 -0700
committerFather Chrysostomos <sprout@cpan.org>2010-11-20 18:15:17 -0800
commit13ca76ffd95cc6e92506a7d4201b24f653b3e3d8 (patch)
treea929c80ca745843835af068ba2d8492345881b4c /lib
parentdc85bd38b5243856f77df4583119e0e85bd741ac (diff)
downloadperl-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/mktables9
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;