diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-03-05 19:35:38 -0700 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2012-03-23 10:10:29 -0400 |
| commit | de72f72fe594a5fb10333c94708b32bf80e98795 (patch) | |
| tree | 3817b0a069d46194c2a60a773673c941f06d22b3 | |
| parent | 424313d48c16a7a9ce5a6341b6f65914fbddf259 (diff) | |
| download | perl-de72f72fe594a5fb10333c94708b32bf80e98795.tar.gz | |
charnames: White-space only
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 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 |