X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4db6b29c6105b1db1b04d9177eab261d2d2e57f4..466e0b0bee6b61530b0be73a394df19828bf24f9:/charset.plp diff --git a/charset.plp b/charset.plp index 25bc44b..be31655 100644 --- a/charset.plp +++ b/charset.plp @@ -105,7 +105,7 @@ sub tabinput { hebrew => [qw( iso-8859-8 cp1255 MacHebrew cp862 U59-5F )], thai => [qw( iso-8859-11 cp874 MacThai )], vietnamese => [qw( viscii cp1258 MacVietnamese )], - symbols => [qw( symbol dingbats MacDingbats wingdings )], + symbols => [qw( symbol dingbats MacDingbats wingdings webdings )], # iso-code shorthand 1 => 'westeur', @@ -139,6 +139,7 @@ sub tabinput { 'symbol' => ['' => '32-127+160'], 'AdobeSymbol' => ['symbol' => '32-127+160', '' => '32-127+160'], # minor differences, irrelevant except for different '€' 'wingdings' => ['' => '32'], + 'webdings' => ['' => '32'], 'iso-8859-2' => ['iso-8859-1' => '160'], 'iso-8859-3' => ['iso-8859-1' => '160'], #TODO: also apply to iso-8859-9 @@ -253,8 +254,8 @@ sub tabinput { } } - if (lc $input eq 'wingdings') { - require Encode::Wingdings; + if ($input =~ m{ \A (?:wing|web)dings \z }ix) { + require "Encode/\u$input.pm"; } if ($input =~ m{ \A u ([0-9a-f]+) (?:-([0-9a-f]+))? \z }ix) {