Commit 9cd30c20 authored by Dan Fandrich's avatar Dan Fandrich
Browse files

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

components doesn't have read permission set.
parent d639ed1a

tests/httpsserver.pl

+2 −2
Original line number Diff line number Diff line
@@ -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;

tests/runtests.pl

+2 −2
Original line number Diff line number Diff line
@@ -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;

tests/sshserver.pl

+2 −2
Original line number Diff line number Diff line
@@ -11,6 +11,7 @@ 


use strict;

use File::Spec;

use Cwd;



my $verbose=1; # set to 1 for debugging

my $showfiles=0;
@@ -22,8 +23,7 @@ my $conffile="curl_sshd_config"; # sshd configuration data 
my $conffile_ssh="curl_ssh_config";    # ssh configuration data

my $knownhostsfile="curl_client_knownhosts";    # ssh knownhosts file



my $path = `pwd`;

chomp $path;

my $path = getcwd();



my $exeext;

if ($^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'msys' || $^O eq 'dos' || $^O eq 'os2') {