charset: case-insensitive preset lookup

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 49ee3eba48dafc17365a6216e7253d0c1f1755bc..4f60765cd7c94d346dae6f013891ee39509cb95e 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -84,7 +84,7 @@ sub tabinput {
        # generate character table(s)
        my $input = shift or return;
        my $params = $input =~ s/[+](.*)\z// ? $1 : undef;
        # 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",
 
        if (ref $charset ne 'HASH') {
                $params and Alert("Parameters ignored for $input",