Forward port diagnostics and $/ bug fix from 7.4 and Commerce branches.

This commit is contained in:
Colin Kuskie 2008-02-18 18:30:29 +00:00
parent 4b82481594
commit ed017f6007
2 changed files with 6 additions and 4 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;