[Sir]

Сообщение от Sir

Вопрос на засыпку: "Как забиндить кнопку '0'?"

Ничего лучшего не придумал, как исправить в модуле Keymap функцию bindkey:

sub bindkey($$) {
    my $code=$_[0];
    if ($code) {
        $code =~ s/C-(.)$/C-\U$1/;
        if (defined($_[1])) {
            $keymap{$code}=$_[1];
        } else {
            delete $keymap{$code};
        }
    }
}

на:

sub bindkey($$) {
    my $code=$_[0];
    if (defined($code)) {
        $code =~ s/C-(.)$/C-\U$1/;
        if (defined($_[1])) {
            $keymap{$code}=$_[1];
        } else {
            delete $keymap{$code};
        }
    }
}

P.S. Urik, переходи на mmc