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=301e006e7887bdeb6ab779343155b6035fb0487d;hp=1f172bc6c546deafc3f7aa92fe7489952ba4eb8f;hb=48e4a267ac83f85a46ee54c53052f8831752acac;hpb=c84f1613b60ec2bd2df1a88e6618f36246c24c4b diff --git a/lib/Config/Any.pm b/lib/Config/Any.pm index 1f172bc..301e006 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.09_01'; +our $VERSION = '0.09_02'; =head1 NAME @@ -14,7 +14,7 @@ Config::Any - Load configuration from different file formats, transparently =head1 VERSION -This document describes Config::Any version 0.09 +This document describes Config::Any version 0.09_02 =head1 SYNOPSIS @@ -141,8 +141,7 @@ sub _load { } # figure out what plugins we're using - my @plugins = grep { $_->is_supported } - ( $force ? @{ $args->{ force_plugins } } : $class->plugins ); + my @plugins = $force ? @{ $args->{ force_plugins } } : $class->plugins; # map extensions if we have to my ( %extension_lut, $extension_re ); @@ -179,6 +178,7 @@ sub _load { } for my $loader ( @try_plugins ) { + next unless $loader->is_supported; my @configs = eval { $loader->load( $filename, $loader_args{ $loader } ); };