summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9dc613b)
This feature is not working, but it's not documented (nor used) either
use Getopt::Long qw(GetOptions);
use strict;
use Getopt::Long qw(GetOptions);
use strict;
use Text::ParseWords;
use IPC::Open3;
use IO::File;
use Text::ParseWords;
use IPC::Open3;
use IO::File;
$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 );
$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 );
$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 );