From 9cd30c20120888ce08276ed00a11e858e44ff3f4 Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Sat, 22 Dec 2007 18:25:43 +0000
Subject: Use getcwd() to get the directory, which works even if one of the
 directory components doesn't have read permission set.

---
 tests/runtests.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests/runtests.pl')

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;
-- 
cgit v1.2.3