[tesh] kill dead code

This feature is not working, but it's not documented (nor used) either

diff --git a/tools/tesh/tesh.pl b/tools/tesh/tesh.pl
index 5cb808f..ed1902c 100755 (executable)
--- a/tools/tesh/tesh.pl
+++ b/tools/tesh/tesh.pl
@@ -43,7 +43,6 @@ push @INC, $path;
 
 use Getopt::Long qw(GetOptions);
 use strict;
 
 use Getopt::Long qw(GetOptions);
 use strict;

-use Term::ANSIColor;

 use Text::ParseWords;
 use IPC::Open3;
 use IO::File;
 use Text::ParseWords;
 use IPC::Open3;
 use IO::File;


@@ -528,7 +527,7 @@ LINE: while ( defined( my $line = <$infh> ) and not $error ) {
             $cmd{'file'} = $tesh_file;
             $cmd{'line'} = $line_num;
         }
             $cmd{'file'} = $tesh_file;
             $cmd{'line'} = $line_num;
         }

-    } elsif ( $cmd eq '&' ) {    # parallel command line
+    } elsif ( $cmd eq '&' ) {    # background command line

 
         if ( defined( $cmd{'cmd'} ) ) {
             exec_cmd( \%cmd );
 
         if ( defined( $cmd{'cmd'} ) ) {
             exec_cmd( \%cmd );


@@ -538,6 +537,7 @@ LINE: while ( defined( my $line = <$infh> ) and not $error ) {
         $cmd{'cmd'}        = $arg;
         $cmd{'file'}       = $tesh_file;
         $cmd{'line'}       = $line_num;
         $cmd{'cmd'}        = $arg;
         $cmd{'file'}       = $tesh_file;
         $cmd{'line'}       = $line_num;

+       

     } elsif ( $line =~ /^!\s*output sort/ ) {    #output sort
         if ( defined( $cmd{'cmd'} ) ) {
             exec_cmd( \%cmd );
     } elsif ( $line =~ /^!\s*output sort/ ) {    #output sort
         if ( defined( $cmd{'cmd'} ) ) {
             exec_cmd( \%cmd );


@@ -582,14 +582,6 @@ LINE: while ( defined( my $line = <$infh> ) and not $error ) {
         $line =~ s/^! setenv //g;
         $line =~ s/\r//g;
         setenv_cmd($line);
         $line =~ s/^! setenv //g;
         $line =~ s/\r//g;
         setenv_cmd($line);

-    } elsif ( $line =~ /^!\s*include/ ) {                #include
-        if ( defined( $cmd{'cmd'} ) ) {
-            exec_cmd( \%cmd );
-            %cmd = ();
-        }
-        print color("red"),   "[Tesh/CRITICAL] need include";
-        print color("reset"), "\n";
-        die;

     } elsif ( $line =~ /^!\s*timeout/ ) {                #timeout
         if ( defined( $cmd{'cmd'} ) ) {
             exec_cmd( \%cmd );
     } elsif ( $line =~ /^!\s*timeout/ ) {                #timeout
         if ( defined( $cmd{'cmd'} ) ) {
             exec_cmd( \%cmd );