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:
docelic@crystallabs.io 2019-04-30 10:07:28 +00:00
parent 89880e320d
commit dbb0341660

View file

@ -541,6 +541,13 @@ sub add_handlers
next unless $hnd =~ /^(run|help|smry|comp|catch|alias)_/o;
my $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) )
{