From 9cd30c20120888ce08276ed00a11e858e44ff3f4 Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Sat, 22 Dec 2007 18:25:43 +0000
Subject: Use getcwd() to get the directory, which works even if one of the
 directory components doesn't have read permission set.

---
 tests/sshserver.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests/sshserver.pl')

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') {
-- 
cgit v1.2.3