X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/4db6b29c6105b1db1b04d9177eab261d2d2e57f4..a86a347cd31f3cf18daeccebe0eeceabce738d46:/charset.plp?ds=sidebyside diff --git a/charset.plp b/charset.plp index 25bc44b..381ea14 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 wingdings2 wingdings3 webdings )], # iso-code shorthand 1 => 'westeur', @@ -139,6 +139,9 @@ sub tabinput { 'symbol' => ['' => '32-127+160'], 'AdobeSymbol' => ['symbol' => '32-127+160', '' => '32-127+160'], # minor differences, irrelevant except for different '€' 'wingdings' => ['' => '32'], + 'wingdings2' => ['' => '32'], + 'wingdings3' => ['' => '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 +256,8 @@ sub tabinput { } } - if (lc $input eq 'wingdings') { - require Encode::Wingdings; + if ($input =~ m{ \A (?:wing|web)dings \d* \z }ix) { + eval "require Encode::\u$input"; } if ($input =~ m{ \A u ([0-9a-f]+) (?:-([0-9a-f]+))? \z }ix) {