Swap with alias, functionally unchanged.
use warnings;
+{
- default => [qw( u+0-27F utf-8+realsize iso-8859-1 iso-8859-15 cp1252 cp437 cp850 )],
+ default => [qw( u+0-27F utf8+realsize iso-8859-1 iso-8859-15 cp1252 cp437 cp850 )],
unicode => [qw( uu+cols=32+realsize u+0-FFF u+1000-18AF u+18B0-1FFF )],
us => [qw( cp437 cp863 gsm0338 AdobeStandardEncoding )],
ebcdic => [qw( cp37 cp500 cp1047 posix-bc cp1026 cp875 )],
$row->{set} = 'Unicode planes';
return $row;
}},
- 'utf-8' => 'utf8',
utf8 => {setup => sub {
my $row = shift;
$row->{set} = 'UTF-8';
$row->{endpoint} = 0xFF;
return $row;
}},
+ 'utf-8' => 'utf8',
};