hack/test-port-forwarding.pl: add check for "MSWin32"

Signed-off-by: Norio Nomura <norio.nomura@gmail.com>

hack/test-port-forwarding.pl: add check for "cygwin", use '\\' instead of '\'

Signed-off-by: Norio Nomura <norio.nomura@gmail.com>

hack/test-port-forwarding.pl: add escape

Signed-off-by: Norio Nomura <norio.nomura@gmail.com>

Author: norio-nomura

hack/test-port-forwarding.pl

@@ -39,7 +39,7 @@
 # platform independent way to add trailing path separator
 my $sockDir = catfile($instDir, "sock", "");
 # catfile convert '\' to '/' on Windows, but we want to keep it as '\' since golang on Windows prefers '\'
-$sockDir =~ s/\//\\/g if $Config{osname} eq "msys";
+$sockDir =~ s/\//\\\\/g if ($Config{osname} eq "cygwin" || $Config{osname} eq "msys" || $Config{osname} eq "MSWin32");
 
 # If $instance is a filename, add our portForwards to it to enable testing
 if (-f $instance) {
@@ -127,6 +127,7 @@
 
     my $remote = JoinHostPort($test{guest_ip},$test{guest_port});
     my $local = $test{host_socket} eq "" ? JoinHostPort($test{host_ip},$test{host_port}) : $test{host_socket};
+    $local =~ s/\\/\\\\/g if ($Config{osname} eq "cygwin" || $Config{osname} eq "msys" || $Config{osname} eq "MSWin32");
     if ($test{mode} eq "ignore") {
         $test{log_msg} = "Not forwarding TCP $remote";
     }