[Catalyst-commits] r13468 - Catalyst-Runtime/5.80/trunk/lib

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2010-08-04 15:25:18 +0100 (Wed, 04 Aug 2010)
New Revision: 13468

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
moved component name sort that happens in setup_components to locate_components to allow methods to wrap around locate_components

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2010-08-04 13:44:19 UTC (rev 13467)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2010-08-04 14:25:18 UTC (rev 13468)
@@ -2407,8 +2407,7 @@
 
     my $config  = $class->config->{ setup_components };
 
-    my @comps = sort { length $a <=> length $b }
-                $class->locate_components($config);
+    my @comps = $class->locate_components($config);
     my %comps = map { $_ => 1 } @comps;
 
     my $deprecatedcatalyst_component_names = grep { /::[CMV]::/ } @comps;
@@ -2463,7 +2462,8 @@
         %$config
     );
 
-    my @comps = $locator->plugins;
+    # XXX think about ditching this sort entirely
+    my @comps = sort { length $a <=> length $b } $locator->plugins;
 
     return @comps;
 }