# Remember to update this in Catalyst::Runtime as well!
-our $VERSION = '5.80010';
+our $VERSION = '5.80011';
{
my $dev_version = $VERSION =~ /_\d{2}$/;
my @comps = sort { length $a <=> length $b }
$class->locate_components($config);
+ my %comps = map { $_ => 1 } @comps;
my $deprecatedcatalyst_component_names = grep { /::[CMV]::/ } @comps;
$class->log->warn(qq{Your application is using the deprecated ::[MVC]:: type naming scheme.\n}.
for my $component (@comps) {
$class->components->{ $component } = $class->setup_component($component);
for my $component ($class->expand_component_module( $component, $config )) {
+ next if $comps{$component};
$class->_controller_init_base_classes($component); # Also cover inner packages
$class->components->{ $component } = $class->setup_component($component);
}
sub expand_component_module {
my ($class, $module) = @_;
- Devel::InnerPackage::list_packages( $module );
+ return Devel::InnerPackage::list_packages( $module );
}
=head2 $c->setup_component
fireartist: Carl Franks <cfranks@cpan.org>
+frew: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
+
gabb: Danijel Milicevic
Gary Ashton Jones