Add missing block to Term::Shell fix
authorDavor Ocelic <docelic@crystallabs.io>
Tue, 30 Apr 2019 12:07:28 +0200
changeset 112 32f396697fb3
parent 111 252611c8d283
child 113 ce001854d4b8
Add missing block to Term::Shell fix (This corresponds to Term::Shell PR posted at https://github.com/shlomif/Term-Shell/pull/3)
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) )
         {