diff options
Diffstat (limited to 'tests/runtests.pl')
-rwxr-xr-x | tests/runtests.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index b1258d08f..9a7e14b9f 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -59,6 +59,7 @@ use strict; #use Time::HiRes qw( gettimeofday ); #use warnings; +use Cwd; @INC=(@INC, $ENV{'srcdir'}, "."); @@ -133,8 +134,7 @@ my $memdump="$LOGDIR/memdump"; # the path to the script that analyzes the memory debug output file: my $memanalyze="$perl $srcdir/memanalyze.pl"; -my $pwd; # current working directory -chomp($pwd = `pwd`); +my $pwd = getcwd(); # current working directory my $start; my $forkserver=0; |