X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatcher.pm;h=fb1efea6000f4c9e7236b2b7716d002527bf910a;hp=135c578972ed92573c0e23818fdf0cd8cf4ee2f5;hb=d0cacee71a316290bc01f0e12681c16bdc1e84e2;hpb=76ac74ecb1948fe08bf9ebfbcf0833a398763f1f diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm index 135c578..fb1efea 100644 --- a/lib/Catalyst/Dispatcher.pm +++ b/lib/Catalyst/Dispatcher.pm @@ -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"; @@ -589,8 +588,8 @@ sub _find_or_create_namespace_node { =head2 $self->setup_actions( $class, $context ) -Loads all of the preload dispatch types, registers their actions and then -loads all of the postload dispatch types, and iterates over the tree of +Loads all of the pre-load dispatch types, registers their actions and then +loads all of the post-load dispatch types, and iterates over the tree of actions, displaying the debug information if appropriate. =cut @@ -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"); }; }); }