$OS = "WIN";
}
+print "OS: ".$OS."\n";
+
# make sure we received a tesh file
scalar @ARGV > 0 || die "Usage:\n tesh [*options*] *tesh_file*\n";
# cleanup the command line
if($OS eq "WIN"){
$cmd{'cmd'} =~ s/\${EXEEXT:=}/.exe/g;
+ $cmd{'cmd'} =~ s/\${EXEEXT}/.exe/g;
+ $cmd{'cmd'} =~ s/\$EXEEXT/.exe/g;
}
else{
$cmd{'cmd'} =~ s/\${EXEEXT:=}//g;
my @got;
while(defined(my $got=<OUT>)) {
$got =~ s/\r//g;
- $got =~ s/^( )*//g;
+ #$got =~ s/^( )*//g;
chomp $got;
push @got, "$got";
}