[Catalyst-commits] r10350 - in Catalyst-Runtime/5.80/trunk: lib t t/aggregate

[arcanez at dev.catalyst.perl.org]

Author: arcanez
Date: 2009-05-29 00:42:33 +0000 (Fri, 29 May 2009)
New Revision: 10350

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
   Catalyst-Runtime/5.80/trunk/t/aggregate/live_plugin_loaded.t
   Catalyst-Runtime/5.80/trunk/t/unit_core_plugin.t
Log:
why have two loops
add Catalyst::Plugin::MangleDollarUnderScore to plugin tests


Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-05-29 00:12:52 UTC (rev 10349)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-05-29 00:42:33 UTC (rev 10350)
@@ -2505,11 +2505,8 @@
 
         my @plugins = map { s/\A\+// ? $_ : "Catalyst::Plugin::$_" } @$plugins;
         
-        for my $plugin (@plugins) {
-            Class::MOP::load_class($plugin);
-        }
-
         for my $plugin ( reverse @plugins ) {
+            Class::MOP::load_class($plugin);
             my $meta = find_meta($plugin);
             next if $meta && $meta->isa('Moose::Meta::Role');
 

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/live_plugin_loaded.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/live_plugin_loaded.t	2009-05-29 00:12:52 UTC (rev 10349)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/live_plugin_loaded.t	2009-05-29 00:42:33 UTC (rev 10350)
@@ -10,6 +10,7 @@
 use Catalyst::Test 'TestApp';
 
 my @expected = qw[
+  Catalyst::Plugin::MangleDollarUnderScore
   Catalyst::Plugin::Test::Errors
   Catalyst::Plugin::Test::Headers
   Catalyst::Plugin::Test::Inline

Modified: Catalyst-Runtime/5.80/trunk/t/unit_core_plugin.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_core_plugin.t	2009-05-29 00:12:52 UTC (rev 10349)
+++ Catalyst-Runtime/5.80/trunk/t/unit_core_plugin.t	2009-05-29 00:42:33 UTC (rev 10350)
@@ -42,6 +42,7 @@
 
 use_ok 'TestApp';
 my @expected = qw(
+  Catalyst::Plugin::MangleDollarUnderScore
   Catalyst::Plugin::Test::Errors
   Catalyst::Plugin::Test::Headers
   Catalyst::Plugin::Test::Inline