Add missing block to Term::Shell fix
(This corresponds to Term::Shell PR posted at https://github.com/shlomif/Term-Shell/pull/3) FossilOrigin-Name: 736db8905066a28cf2a7d8b0a25e2f91d66c4c2299c059b9c49212ffcc17bdcf
This commit is contained in:
parent
89880e320d
commit
dbb0341660
1 changed files with 7 additions and 0 deletions
7
shelldap
7
shelldap
|
|
@ -542,6 +542,13 @@ sub add_handlers
|
||||||
my $t = $1;
|
my $t = $1;
|
||||||
my $a = substr( $hnd, length($t) + 1 );
|
my $a = substr( $hnd, length($t) + 1 );
|
||||||
|
|
||||||
|
# Add on the prefix and suffix if the command is defined
|
||||||
|
if ( length $a )
|
||||||
|
{
|
||||||
|
substr( $a, 0, 0 ) = $o->cmd_prefix;
|
||||||
|
$a .= $o->cmd_suffix;
|
||||||
|
}
|
||||||
|
|
||||||
if ( $o->has_aliases($a) )
|
if ( $o->has_aliases($a) )
|
||||||
{
|
{
|
||||||
my @a = $o->get_aliases($a);
|
my @a = $o->get_aliases($a);
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue