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

components doesn't have read permission set.

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;