diff options
| -rw-r--r-- | src/test/perl/TestLib.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index a377cdb226a..458b8013796 100644 --- a/src/test/perl/TestLib.pm +++ b/src/test/perl/TestLib.pm @@ -400,7 +400,7 @@ sub slurp_file my ($filename) = @_; local $/; my $contents; - if (!$windows_os) + if ($Config{osname} ne 'MSWin32') { open(my $in, '<', $filename) or die "could not read \"$filename\": $!"; |