diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/run_make_tests.pl | 4 | ||||
-rw-r--r-- | tests/scripts/features/temp_stdin | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/tests/run_make_tests.pl b/tests/run_make_tests.pl index a534176f..95c07db7 100644 --- a/tests/run_make_tests.pl +++ b/tests/run_make_tests.pl @@ -573,7 +573,7 @@ sub set_more_defaults create_file('make.mk', 'all:;$(info $(MAKE))'); my $mk = `$make_path -sf make.mk`; unlink('make.mk'); - chop $mk; + $mk =~ s/\r?\n$//; $mk or die "FATAL ERROR: Cannot determine the value of \$(MAKE)\n"; $make_path = $mk; } @@ -583,7 +583,7 @@ sub set_more_defaults create_file('shell.mk', 'all:;$(info $(SHELL))'); $sh_name = `$make_path -sf shell.mk`; unlink('shell.mk'); - chop $sh_name; + $sh_name =~ s/\r?\n$//; if (! $sh_name) { print "Cannot determine shell\n"; $is_posix_sh = 0; diff --git a/tests/scripts/features/temp_stdin b/tests/scripts/features/temp_stdin index 59925caf..af2de2f9 100644 --- a/tests/scripts/features/temp_stdin +++ b/tests/scripts/features/temp_stdin @@ -98,8 +98,10 @@ force: check_tempfile($tdir); @make_command = @make_orig; +unlink($makecopy); } +close(STDIN); unlink('input.mk', 'bye.mk'); # This tells the test driver that the perl test script executed properly. |