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=26cc8069e402797059dc650e8758d0f752b3b240;hp=7bdf2a64a24259cd649cf686f1d6b713d0ed8f51;hb=410175babd185a04d223719be93510c758fd44a9;hpb=f9f3d682a0332cec1207764dcada85a7ff7750f0 diff --git a/lib/Config/Any.pm b/lib/Config/Any.pm index 7bdf2a6..26cc806 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.25'; +our $VERSION = '0.30'; =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