diff options
| -rw-r--r-- | src/test/perl/TestLib.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index 478f855462f..8eb27df796f 100644 --- a/src/test/perl/TestLib.pm +++ b/src/test/perl/TestLib.pm @@ -242,9 +242,12 @@ sub slurp_dir sub slurp_file { + my ($filename) = @_; local $/; - local @ARGV = @_; - my $contents = <>; + open(my $in, '<', $filename) + or die "could not read \"$filename\": $!"; + my $contents = <$in>; + close $in; $contents =~ s/\r//g if $Config{osname} eq 'msys'; return $contents; } |