}
else{
$OS = "WIN";
+ $ENV{"PRINTF_EXPONENT_DIGITS"} = "2";
}
###
# exec the command line
- ###
+ ### $line =~ s/\r//g;
$pid = open3(\*CHILD_IN, \*OUT, \*OUT, $cmd{'cmd'} );
# push all provided input to executing child
$line_num++;
chomp $line;
+ $line =~ s/\r//g;
print "[TESH/debug] $line_num: $line\n" if $opts{'debug'};
my $next;
# deal with line continuations