}
my ($proj_dir) = $ARGV[0];
-open MAKETEST, $ARGV[1] or die "Unable to open $ARGV[1]. $!\n";
+open MAKETEST, $ARGV[1] or die "Unable to open file: \"$ARGV[1]\". $!\n";
sub var_subst {
my ($text, $name, $value) = @_;
while ( defined( $line = <MAKETEST> ) ) {
chomp $line;
if ( $line =~ /BEGIN TESH TESTS/ ) {
+ print "SET( MEMCHECK 1) \n";
$dump = 1;
next;
}
my ( $env_var, $value_var ) = ( $1, $2 );
$environ{$env_var} = $value_var;
}
- if ( $line =~ /(\S+)\)$/ ) {
+ if ( $line =~ /(\S+)\s*\)$/ ) {
$tesh_file = $1;
$tesh_file =~ s/^[^\/\$]/$path\/$&/;
$tesh_file =~ s/\${CMAKE_HOME_DIRECTORY}/$proj_dir/g;
my ($count) = 0;
my ($count_first) = 0;
my ($count_second) = 0;
- open TESH_FILE, $tesh_file or die "Unable to open $tesh_file $!\n";
+ open TESH_FILE, $tesh_file or die "Unable to open tesh file: \"$tesh_file\". $!\n";
my ($input) = "";
my ($l);
while ( defined( $l = <TESH_FILE> ) ) {