X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatcher.pm;h=8451b8d0caf741fad00004a8c833c3dbe53d02b5;hb=20fe4e3c1146e3e61156e6c2f3ce0c0cdb3e9eb6;hp=d82dfe18f9552f1feea4aa28e68eb4c176379e59;hpb=a2aac3b8867dea286d03eba07a6fbe2e237cf1ae;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm index d82dfe1..8451b8d 100644 --- a/lib/Catalyst/Dispatcher.pm +++ b/lib/Catalyst/Dispatcher.pm @@ -153,7 +153,7 @@ sub _command2action { $action = $self->_invoke_as_path( $c, "$command", \@args ); } - # go to a component ( "MyApp::*::Foo" or $c->component("...") + # go to a component ( "View::Foo" or $c->component("...") # - a path or an object) unless ($action) { my $method = @extra_params ? $extra_params[0] : "process"; @@ -510,7 +510,6 @@ sub register { my $registered = $self->_registered_dispatch_types; - #my $priv = 0; #seems to be unused foreach my $key ( keys %{ $action->attributes } ) { next if $key eq 'Private'; my $class = "Catalyst::DispatchType::$key"; @@ -739,7 +738,7 @@ foreach my $public_method_name (qw/ $package_hash{$class}++ || do { warn("Class $class is calling the deprecated method\n" . " Catalyst::Dispatcher::$public_method_name,\n" - . " this will be removed in Catalyst 5.9X\n"); + . " this will be removed in Catalyst 5.9\n"); }; }); }