diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2020-12-28 19:48:01 -0800 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-01-17 09:18:15 -0700 |
| commit | 9824c081922f8e3697322536c3da1702e35e45ab (patch) | |
| tree | a5c8f673282770dfddd88133421c8df984816e80 /regen/charset_translations.pl | |
| parent | 1604cfb0273418ed479719f39def5ee559bffda2 (diff) | |
| download | perl-9824c081922f8e3697322536c3da1702e35e45ab.tar.gz | |
style: Detabify regen files.
They generate C files.
Bump feature.pm and warnings.pm versions to satisfy cmpVERSION.pl.
I can't get it to easily ignore whitespace, `git diff --name-only`
does not respect the -w flag.
regen_perly.pl is left alone. That would require rebuilding
perly.* which is beyond a simple indentation change.
Diffstat (limited to 'regen/charset_translations.pl')
| -rw-r--r-- | regen/charset_translations.pl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/regen/charset_translations.pl b/regen/charset_translations.pl index d2a0014557..cb7f801b07 100644 --- a/regen/charset_translations.pl +++ b/regen/charset_translations.pl @@ -275,21 +275,21 @@ sub cp_2_utfbytes($$) { my $I8_2_utf = get_I8_2_utf($charset); my $len = $ucp < 0xA0 ? 1 : - $ucp < 0x400 ? 2 : - $ucp < 0x4000 ? 3 : - $ucp < 0x40000 ? 4 : - $ucp < 0x400000 ? 5 : - $ucp < 0x4000000 ? 6 : - $ucp < 0x40000000? 7 : + $ucp < 0x400 ? 2 : + $ucp < 0x4000 ? 3 : + $ucp < 0x40000 ? 4 : + $ucp < 0x400000 ? 5 : + $ucp < 0x4000000 ? 6 : + $ucp < 0x40000000? 7 : $CHARSET_TRANSLATIONS::UTF_EBCDIC_MAXBYTES; my @str; - for (1 .. $len - 1) { + for (1 .. $len - 1) { unshift @str, chr $I8_2_utf->[($ucp & 0x1f) | 0xA0]; - $ucp >>= 5; - } + $ucp >>= 5; + } - unshift @str, chr $I8_2_utf->[($ucp & _UTF_START_MASK($len)) | _UTF_START_MARK($len)]; + unshift @str, chr $I8_2_utf->[($ucp & _UTF_START_MASK($len)) | _UTF_START_MARK($len)]; return join "", @str; } |