moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-11-11 20:15:03 -05:00
Code Issues Releases Wiki Activity

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

Browse Source 
components doesn't have read permission set.
This commit is contained in:
Dan Fandrich 2007-12-22 18:25:43 +00:00
parent d639ed1aaf
commit 9cd30c2012
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/httpsserver.pl
View File

@ -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;

4
tests/runtests.pl
View File

@ -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;

4
tests/sshserver.pl
View File

@ -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') {