98_Installer: Windows path compatibility

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@19254 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2019-04-24 14:58:16 +00:00
parent 8107d9c1b1
commit 8a21caf449

View File

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