From 50129e6a964612e682ba0d240b232617bf617be3 Mon Sep 17 00:00:00 2001 From: Karlson2k Date: Mon, 22 Feb 2016 10:06:53 +0300 Subject: tests: Use 'pathhelp' for paths conversions in secureserver.pl Closes #675 --- tests/secureserver.pl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'tests') diff --git a/tests/secureserver.pl b/tests/secureserver.pl index c770fa5a7..3a7443c40 100755 --- a/tests/secureserver.pl +++ b/tests/secureserver.pl @@ -40,6 +40,8 @@ use serverhelp qw( server_logfilename ); +use pathhelp; + my $stunnel = "stunnel"; my $verbose=0; # set to 1 for debugging @@ -229,9 +231,9 @@ if($stunnel_version < 310) { if($stunnel =~ /tstunnel(\.exe)?"?$/) { $tstunnel_windows = 1; - # replace Cygwin and MinGW drives within paths - $capath =~ s/^(\/cygdrive)?\/(\w)\//$2\:\//; - $certfile =~ s/^(\/cygdrive)?\/(\w)\//$2\:\//; + # convert Cygwin/MinGW paths to Win32 format + $capath = pathhelp::sys_native_abs_path($capath); + $certfile = pathhelp::sys_native_abs_path($certfile); } #*************************************************************************** -- cgit v1.2.3