X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/504c0879e49d9ffb9575ad6549c21d3990dc27d0..211543b923759291c93630472bae959c6e8fb652:/charset.plp diff --git a/charset.plp b/charset.plp index ebcbc32..b0d3b83 100644 --- a/charset.plp +++ b/charset.plp @@ -31,12 +31,12 @@ use Encode qw(decode resolve_alias); my %ALIAS = ( # default => [qw(unicode utf-8 iso-8859-1 cp437 -cp1252- --iso-8859-15- -koi8-f)], default => [qw(unicode- utf-8 iso-8859-1 -cp1252- --iso-8859-15- cp437 -cp850)], - 0 => [qw(cp437 cp863)], - 1 => [qw(iso-8859-1 cp1252 MacRoman cp850)], - 2 => [qw(iso-8859-2 cp1250 cp852 MacCentralEurRoman MacCroatian MacRumanian)], - 5 => [qw(koi8-f iso-8859-5 cp1251 MacCyrillic cp855 cp866)], - 7 => [qw(iso-8859-7 cp1253 MacGreek cp737 cp869)], - 8 => [qw(iso-8859-8 cp1255 MacHebrew cp862)], + 0 => [qw(cp437 -cp863)], + 1 => [qw(iso-8859-1 -cp1252 -MacRoman -cp850)], + 2 => [qw(iso-8859-2 -cp1250 -cp852 -MacCentralEurRoman -MacCroatian -MacRumanian)], + 5 => [qw(koi8-f -iso-8859-5 -cp1251 -MacCyrillic -cp855 -cp866)], + 7 => [qw(iso-8859-7 -cp1253 -MacGreek -cp737 -cp869)], + 8 => [qw(iso-8859-8 -cp1255 -MacHebrew -cp862)], ); my @request = map { if (my $input = $_) {