From 8a21caf449ed76e9bf95c6f3e98d1ef56cbd06c5 Mon Sep 17 00:00:00 2001
From: jpawlowski <jpawlowski@users.noreply.github.com>
Date: Wed, 24 Apr 2019 14:58:16 +0000
Subject: [PATCH] 98_Installer: Windows path compatibility

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@19254 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/98_Installer.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/FHEM/98_Installer.pm b/FHEM/98_Installer.pm
index ee3d5fa04..6b00cc802 100644
--- a/FHEM/98_Installer.pm
+++ b/FHEM/98_Installer.pm
@@ -5006,7 +5006,7 @@ sub LoadInstallStatusPerl(;$) {
                               ? $modules{$fname}{META}{version}
                               : 0;
                         }
-                        elsif ( $pkg =~ /^Win32::/ && $^O ne 'MSWin32' ) {
+                        elsif ( $pkg =~ /^Win32::/ && $^O !~ /Win/ ) {
                             $pkgStatus{Perl}{pkgs}{$pkg}{status} = 'n/a';
                         }
                         else {
@@ -5381,7 +5381,7 @@ sub __GetExtendedEnvPath {
 
     foreach my $p ( reverse @binpath ) {
         next unless ( $p && $p ne '' );
-        $p =~ s/\\/\\\/g;
+        $p =~ s/\\/\\\\/g if ($^O =~ m/Win/);
         unshift @path, $p unless ( grep ( /^$p$/, @path ) );
     }