}
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) = @_;
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> ) ) {