minor portability fixes

git-svn-id: svn://svn.lighttpd.net/lighttpd/branches/lighttpd-merge-1.4.x@668 152afb58-edef-0310-8abb-c4023f1b3aa9

1 files changed, 4 insertions, 9 deletions

diff --git a/tests/LightyTest.pm b/tests/LightyTest.pm
index 89272c4f..ca65ba67 100755
--- a/tests/LightyTest.pm
+++ b/tests/LightyTest.pm
@@ -4,6 +4,7 @@ package LightyTest;
 use strict;
 use IO::Socket;
 use Test::More;
+use Cwd 'abs_path';
 
 sub new {
 	my $class = shift;
@@ -13,19 +14,13 @@ sub new {
 	$self->{CONFIGFILE} = 'lighttpd.conf';
 
 	$lpath = (defined $ENV{'top_builddir'} ? $ENV{'top_builddir'} : '..');
-	$lpath = `readlink -f '$lpath'`;
-	chomp $lpath;
-	$self->{BASEDIR} = $lpath;
+	$self->{BASEDIR} = abs_path($lpath);
 
 	$lpath = (defined $ENV{'top_builddir'} ? $ENV{'top_builddir'}."/tests/" : '.');
-	$lpath = `readlink -f '$lpath'`;
-	chomp $lpath;
-	$self->{TESTDIR} = $lpath;
+	$self->{TESTDIR} = abs_path($lpath);
 
 	$lpath = (defined $ENV{'srcdir'} ? $ENV{'srcdir'} : '.');
-	$lpath = `readlink -f '$lpath'`;
-	chomp $lpath;
-	$self->{SRCDIR} = $lpath;
+	$self->{SRCDIR} = abs_path($lpath);
 
 
 	$self->{LIGHTTPD_PATH} = $self->{BASEDIR}.'/src/lighttpd';