Commit fea6cf69 authored by Tiago Grego's avatar Tiago Grego
Browse files

open file updated

parent 58be8878
......@@ -186,9 +186,9 @@ sub slurp_file {
my $string;
{
local $/=undef;
open FILE, "<$file" or die "Couldn't open file: $!";
$string = <FILE>;
close FILE;
open my $FILE, '<', $file or die "Couldn't open file: $!";
$string = <$FILE>;
close $FILE;
}
return $string;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment