no warnings 'uninitialized'; # save some useless checks for more legible code
use Carp;
-our $VERSION = '2.07';
+our $VERSION = '2.08';
my @casedesc = (undef, qw/shift ctrl meta/, 'shift meta');
my @rowdesc = qw(numeric top home bottom);
if (not defined $flags) {
$flags = $key eq '^0' ? 'ni' : 'no';
}
- elsif ($flags =~ s/^=//) { # alias
- $desc = $self->{sign}->{alias};
- $desc .= $flags eq "\e" ? 'esc' : $flags;
- $flags = $self->keyunalias($flags) . ' alias';
+ elsif ($flags =~ s/^=(\S+)\s?//) { # alias
+ my $ref = $1;
+ $desc = $self->{sign}->{alias} . ($ref eq "\e" ? 'esc' : $ref);
+ $flags = join ' ', $self->keyunalias($ref), 'alias', $flags;
}
if (my $txt = $self->{key}->{$mode.$key}) {
($desc, $mnem) = split /\n/, $self->escapedesc($txt);