charset: case-insensitive preset lookup
[sheet.git] / charset.plp
index 49ee3eb..4f60765 100644 (file)
@@ -84,7 +84,7 @@ sub tabinput {
        # generate character table(s)
        my $input = shift or return;
        my $params = $input =~ s/[+](.*)\z// ? $1 : undef;
-       my $charset = $charsets->{$input} || {};
+       my $charset = $charsets->{lc $input} || {};
 
        if (ref $charset ne 'HASH') {
                $params and Alert("Parameters ignored for $input",