diff options
| author | Dan Fandrich <dan@coneharvesters.com> | 2007-12-22 18:25:43 +0000 |
|---|---|---|
| committer | Dan Fandrich <dan@coneharvesters.com> | 2007-12-22 18:25:43 +0000 |
| commit | 9cd30c20120888ce08276ed00a11e858e44ff3f4 (patch) | |
| tree | 88170f0714a42dcea4295ff5d98877def33884e9 /tests/sshserver.pl | |
| parent | d639ed1aafe33905b800dbf0c858630352576a01 (diff) | |
| download | curl-9cd30c20120888ce08276ed00a11e858e44ff3f4.tar.gz | |
Use getcwd() to get the directory, which works even if one of the directory
components doesn't have read permission set.
Diffstat (limited to 'tests/sshserver.pl')
| -rw-r--r-- | tests/sshserver.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/sshserver.pl b/tests/sshserver.pl index 8cad2248b..dafa60e24 100644 --- a/tests/sshserver.pl +++ b/tests/sshserver.pl @@ -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') { |