my $file = shift;\r
\r
open( my $fh, $file ) or die $!;\r
- my $content; $content = do { local $/; $content = <$fh> };\r
+ my $content = do { local $/; <$fh> };\r
close $fh;\r
\r
eval { require JSON::Syck; };\r
}\r
else {\r
open( my $fh, $file ) or die $!;\r
- my $content; $content = do { local $/; $content = <$fh> };\r
+ my $content = do { local $/; <$fh> };\r
close $fh;\r
return YAML::Syck::Load( $content );\r
}\r