diff options
-rw-r--r-- | lib/_charnames.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/_charnames.pm b/lib/_charnames.pm index f333234688..612fa0fd1f 100644 --- a/lib/_charnames.pm +++ b/lib/_charnames.pm @@ -749,13 +749,13 @@ sub viacode { return $code_point_aliases{$hex} if exists $code_point_aliases{$hex}; } - # Here there is no user-defined alias, return any official one. - return $return if defined $return; + # Here there is no user-defined alias, return any official one. + return $return if defined $return; - if (CORE::hex($hex) > 0x10FFFF) { - carp "Unicode characters only allocated up to U+10FFFF (you asked for U+$hex)"; - } - return; + if (CORE::hex($hex) > 0x10FFFF) { + carp "Unicode characters only allocated up to U+10FFFF (you asked for U+$hex)"; + } + return; } # _viacode |