perl: align order and completeness of Windows OS checks

This commit is contained in:
Marc Hoersken 2020-03-06 11:13:57 +01:00
parent c0780e4a92
commit 99c688ba21
No known key found for this signature in database
GPG Key ID: 61E03CBED7BC859E
2 changed files with 2 additions and 2 deletions

View File

@ -36,7 +36,7 @@ my $file;
my $dir=".";
my $wlist="";
my @alist;
my $windows_os = $^O eq 'MSWin32' || $^O eq 'msys' || $^O eq 'cygwin';
my $windows_os = $^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'msys';
my $verbose;
my %whitelist;

View File

@ -173,7 +173,7 @@ if ($^O eq 'MSWin32' || $targetos) {
}
}
if (($^O eq 'MSWin32' || $^O eq 'msys') &&
if (($^O eq 'MSWin32' || $^O eq 'cygwin' || $^O eq 'msys') &&
($targetos =~ /vc/ || $targetos =~ /mingw32/ ||
$targetos =~ /borland/ || $targetos =~ /watcom/)) {