From dbb0341660682a0e2d7b3b653775812445dd033f Mon Sep 17 00:00:00 2001
From: "docelic@crystallabs.io" <docelic@crystallabs.io>
Date: Tue, 30 Apr 2019 10:07:28 +0000
Subject: [PATCH] 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
---
 shelldap | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/shelldap b/shelldap
index cca20c6..b661478 100755
--- 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) )
         {