$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 = ();