diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-03-05 19:35:38 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-03-05 19:35:38 -0700 |
commit | 77118718a5a444e6e817d332bbb209d62268984d (patch) | |
tree | 263b7007a0e5bcf0e1f91ea93f38e425b2e012e0 | |
parent | af6342a6b2f87132a100bc83e54d7cb9f088d08c (diff) | |
download | perl-smoke-me/khw-charnames.tar.gz |
charnames: White-space onlysmoke-me/khw-charnames
Outdent code that previously was enclosed in a block
-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 0334eea292..aa4aa5d6e6 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 |