Use getcwd() to get the directory, which works even if one of the directory

components doesn't have read permission set.

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;