X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatcher.pm;h=ea0710be7dfe8562e35c696fbe67c8827bd3d7b0;hb=976220fb6507cadfbeebdd98e30861e2636e9b14;hp=4870bf1788bacc8fb3518529e33bd7fa97607474;hpb=8605f3afde2df9cac31410d6f904c0929f3cba67;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm index 4870bf1..ea0710b 100644 --- a/lib/Catalyst/Dispatcher.pm +++ b/lib/Catalyst/Dispatcher.pm @@ -22,7 +22,7 @@ use namespace::clean -except => 'meta'; # See Catalyst-Plugin-Server for them being added to, which should be much less ugly. # Preload these action types -our @PRELOAD = qw/Index Path/; +our @PRELOAD = qw/Index/; # Postload these action types our @POSTLOAD = qw/Default/; @@ -518,7 +518,7 @@ sub register { # 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; } @@ -691,7 +691,7 @@ sub dispatch_type { return undef; } -sub _check_depreciated_dispatch_type { +sub _check_deprecated_dispatch_type { my ($self, $key, $load_failed) = @_; return unless $key =~ /^(Local)?Regexp?/;