unicode.pl: uppercase uniname arg

scripts/autorun/unicode.pl

@@ -73,7 +73,7 @@ sub cmd_process($server, $trigger, $str, $nick, $target) {
         my $output = _charinfo($str);
         $server->command("msg $target $output");
     } elsif ($trigger eq 'uniname') {
-        my $charinfo = namedseq($str);
+        my $charinfo = namedseq(uc $str);
         my $output;
         if (defined($charinfo)) {
             my $charnum = ord($charinfo);