$line_num++;
chomp $line;
- if($line!=~/\s/){
- next LINE;
- }
print "[TESH/debug] $line_num: $line\n" if $opts{'debug'};
my $next;
# deal with line continuations
}
# Push delayed commands on empty lines
- unless ($line =~ m/^(.)\s*(.*)$/) {
+ unless ($line =~ m/^(.).(.*)$/) {
if (defined($cmd{'cmd'})) {
exec_cmd(\%cmd);
%cmd = ();
} else {
die "[TESH/CRITICAL] parse error: $line\n";
}
+ if($forked){
+ kill(9, $forked);
+ $timeout=0;
+ }
+
}