[Catalyst-commits] r7127 - trunk/Config-Any/lib/Config

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2007-11-13 16:22:35 +0000 (Tue, 13 Nov 2007)
New Revision: 7127

Modified:
   trunk/Config-Any/lib/Config/Any.pm
Log:
don't bother with use_ext warning if force_plugins is set

Modified: trunk/Config-Any/lib/Config/Any.pm
===================================================================
--- trunk/Config-Any/lib/Config/Any.pm	2007-11-13 15:40:44 UTC (rev 7126)
+++ trunk/Config-Any/lib/Config/Any.pm	2007-11-13 16:22:35 UTC (rev 7127)
@@ -133,14 +133,14 @@
     my ( $class, $args ) = @_;
     croak "_load requires a arrayref of file paths" unless $args->{ files };
 
-    if ( !defined $args->{ use_ext } ) {
+    my $force = defined $args->{ force_plugins };
+    if ( !$force and !defined $args->{ use_ext } ) {
         warn
             "use_ext argument was not explicitly set, as of 0.09, this is true by default";
         $args->{ use_ext } = 1;
     }
 
     # figure out what plugins we're using
-    my $force = defined $args->{ force_plugins };
     my @plugins = grep { $_->is_supported }
         ( $force ? @{ $args->{ force_plugins } } : $class->plugins );