# we eat exceptions loading dispatch types.
eval { Class::MOP::load_class($class) };
my $load_failed = $@;
- $self->_check_depreciated_dispatch_type( $key, $load_failed );
+ $self->_check_deprecated_dispatch_type( $key, $load_failed );
push( @{ $self->dispatch_types }, $class->new ) unless $load_failed;
$registered->{$class} = 1;
}
return undef;
}
-sub _check_depreciated_dispatch_type {
+sub _check_deprecated_dispatch_type {
my ($self, $key, $load_failed) = @_;
return unless $key =~ /^(Local)?Regexp?/;
. " Use Chained methods or install the standalone\n"
. " Catalyst::DispatchType::Regex if necessary.\n" );
} elsif ( !defined $Catalyst::DispatchType::Regex::VERSION
- || $Catalyst::DispatchType::Regex::VERSION <= 5.90020 ) {
+ || $Catalyst::DispatchType::Regex::VERSION le '5.90020' ) {
# We loaded the old core version of the Regex module this will break
warn( "The $key DispatchType has been removed from Catalyst core.\n"
. " An old version of the core Catalyst::DispatchType::Regex\n"
. " has been loaded and will likely fail. Please remove\n"
- . " $INC{'Catalyst::DispatchType::Regex'}\n"
+ . " $INC{'Catalyst/DispatchType/Regex.pm'}\n"
. " and use Chained methods or install the standalone\n"
. " Catalyst::DispatchType::Regex if necessary.\n" );
}