# HG changeset patch
# User Davor Ocelic <docelic@crystallabs.io>
# Date 1556618848 -7200
# Node ID 32f396697fb31ac6aa7d777f98fe25f6b44755e4
# Parent  252611c8d2838d8d268ceaff1c44758c34b6089a
Add missing block to Term::Shell fix

(This corresponds to Term::Shell PR posted at
https://github.com/shlomif/Term-Shell/pull/3)

diff -r 252611c8d283 -r 32f396697fb3 shelldap
--- a/shelldap	Tue Apr 30 01:10:00 2019 +0200
+++ b/shelldap	Tue Apr 30 12:07:28 2019 +0200
@@ -541,6 +541,13 @@
         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) )
         {