Add missing block to Term::Shell fix

(This corresponds to Term::Shell PR posted at shlomif/Term-Shell#3) FossilOrigin-Name: 736db8905066a28cf2a7d8b0a25e2f91d66c4c2299c059b9c49212ffcc17bdcf
mahlonsmith · Apr 30, 2019 · dbb0341 · dbb0341
1 parent 89880e3
commit dbb0341
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/shelldap b/shelldap
@@ -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) )
         {