summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2012-03-05 19:35:38 -0700
committerKarl Williamson <public@khwilliamson.com>2012-03-05 19:35:38 -0700
commit77118718a5a444e6e817d332bbb209d62268984d (patch)
tree263b7007a0e5bcf0e1f91ea93f38e425b2e012e0
parentaf6342a6b2f87132a100bc83e54d7cb9f088d08c (diff)
downloadperl-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.pm12
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