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/httpsserver.pl b/tests/httpsserver.pl
index 3cc6c1ea9..95ba10317 100644
--- a/tests/httpsserver.pl
+++ b/tests/httpsserver.pl
@@ -6,6 +6,7 @@
 # It is actually just a layer that runs stunnel properly.
 
 use strict;
+use Cwd;
 
 my $stunnel = "stunnel";
 
@@ -21,8 +22,7 @@ my $verbose=0; # set to 1 for debugging
 my $port = 8991;        # just our default, weird enough
 my $target_port = 8999; # default test http-server port
 
-my $path = `pwd`;
-chomp $path;
+my $path = getcwd();
 
 my $srcdir=$path;