X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=lib%2FConfig%2FAny%2FYAML.pm;h=c2f852df98029e43301097bed6e8d07fc1907ce2;hp=2e800be448993734d248bf385d5deae47fdd99cd;hb=d49610ab8c8f7a8fa979a60fa75eb20ae690135b;hpb=5d3ad6eb7bf1f5ac814bf92e9b7098b9b650414a diff --git a/lib/Config/Any/YAML.pm b/lib/Config/Any/YAML.pm index 2e800be..c2f852d 100644 --- a/lib/Config/Any/YAML.pm +++ b/lib/Config/Any/YAML.pm @@ -44,16 +44,15 @@ sub load { my $file = shift; eval { require YAML::Syck; YAML::Syck->VERSION( '0.70' ) }; - if ( $@ ) { - require YAML; - return YAML::LoadFile( $file ); - } - else { + unless ( $@ ) { open( my $fh, $file ) or die $!; my $content = do { local $/; <$fh> }; close $fh; return YAML::Syck::Load( $content ); } + + require YAML; + return YAML::LoadFile( $file ); } =head2 requires_any_of( )