romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-05-30 17:37:28 +03:00
Code Issues Projects Releases Packages 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
Download patch file Download diff file Expand all files Collapse all files

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