X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=lib%2FConfig%2FAny.pm;h=b6d0f8706df303ac1506d6a019e695c11737ead4;hp=1f4be5ee0784c8ba46eaf0888fa76ee4c1256019;hb=10a5616d22cda61842ac1d6e335c54bff73bd05e;hpb=0bdc3e9bef6f841b341c32960565aaaa9551e2be diff --git a/lib/Config/Any.pm b/lib/Config/Any.pm index 1f4be5e..b6d0f87 100644 --- a/lib/Config/Any.pm +++ b/lib/Config/Any.pm @@ -6,7 +6,7 @@ use warnings; use Carp; use Module::Pluggable::Object (); -our $VERSION = '0.24'; +our $VERSION = '0.29'; =head1 NAME @@ -195,15 +195,15 @@ sub _load { next unless $loader->is_supported; $supported = 1; my @configs; - my $ok = do { + my $err = do { local $@; @configs = eval { $loader->load( $filename, $loader_args{ $loader } ); }; - 1; + $@; }; # fatal error if we used extension matching - croak "Error parsing $filename: $@" if !$ok and $use_ext_lut; - next if !$ok or !@configs; + croak "Error parsing $filename: $err" if $err and $use_ext_lut; + next if $err or !@configs; # post-process config with a filter callback if ( $args->{ filter } ) { @@ -314,7 +314,7 @@ Config::Any requires no configuration files or environment variables. =head1 DEPENDENCIES -L +L And at least one of the following: L