Fix a bug where $/ ended up being undef globally.

This commit is contained in:
Colin Kuskie 2008-02-18 18:17:12 +00:00
parent e47ec1fd16
commit b4ef882e4c
2 changed files with 5 additions and 3 deletions

View file

@ -619,7 +619,7 @@ sub getFileContentsAsScalar {
my $filename = shift;
my $content;
open (my $FILE,"<",$self->getPath($filename));
local undef $/;
local $/;
$content = <$FILE>;
close($FILE);
return $content;