commit 8c92f7e82fcdd2fb17c90ecdfea6134d7a8a8185
author Marc Hoersken <info@marc-hoersken.de> Sun Apr 05 18:46:42 2020 +0200
committer Marc Hoersken <info@marc-hoersken.de> Fri Apr 10 21:03:24 2020 +0200
tree 4e6996fa9071f576ddc5bad3edc4d89974d9aa31
parent 3e36af2cfabfd5de4f1daebdba9a68194b6344e9

sshserver.pl: use cached Win32 environment check variable

tests/sshserver.pl

diff --git a/tests/sshserver.pl b/tests/sshserver.pl
index 59ea0ae..084b4a8 100644
--- a/tests/sshserver.pl
+++ b/tests/sshserver.pl
@@ -405,7 +405,7 @@
 my $pidfile_config = $pidfile;
 my $sftpsrv_config = $sftpsrv;
 
-if ($^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'msys') {
+if (pathhelp::os_is_win()) {
     # Ensure to use MinGW/Cygwin paths
     $clipubkeyf_config = pathhelp::build_sys_abs_path($clipubkeyf_config);
     $hstprvkeyf_config = pathhelp::build_sys_abs_path($hstprvkeyf_config);
@@ -797,7 +797,7 @@
 my $identity_config = abs_path("$path/$identity");
 my $knownhosts_config = abs_path("$path/$knownhosts");
 
-if ($^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'msys') {
+if (pathhelp::os_is_win()) {
     # Ensure to use MinGW/Cygwin paths
     $identity_config = pathhelp::build_sys_abs_path($identity_config);
     $knownhosts_config = pathhelp::build_sys_abs_path($knownhosts_config);