curl/curl
1
1
Fork 0
mirror of https://github.com/curl/curl.git synced 2025-09-21 03:22:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

tests: Use 'pathhelp' for paths conversions in secureserver.pl

Browse Source 
Closes #675
This commit is contained in:
Karlson2k 2016-02-22 10:06:53 +03:00 committed by Daniel Stenberg
parent 4c5d5e5e55
commit 50129e6a96
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/secureserver.pl
View File

@ -40,6 +40,8 @@ use serverhelp qw(
server_logfilename server_logfilename
); );
use pathhelp;
my $stunnel = "stunnel"; my $stunnel = "stunnel";
my $verbose=0; # set to 1 for debugging my $verbose=0; # set to 1 for debugging
@ -229,9 +231,9 @@ if($stunnel_version < 310) {
if($stunnel =~ /tstunnel(\.exe)?"?$/) { if($stunnel =~ /tstunnel(\.exe)?"?$/) {
$tstunnel_windows = 1; $tstunnel_windows = 1;
# replace Cygwin and MinGW drives within paths # convert Cygwin/MinGW paths to Win32 format
$capath =~ s/^(\/cygdrive)?\/(\w)\//$2\:\//; $capath = pathhelp::sys_native_abs_path($capath);
$certfile =~ s/^(\/cygdrive)?\/(\w)\//$2\:\//; $certfile = pathhelp::sys_native_abs_path($certfile);
} }
#*************************************************************************** #***************************************************************************