X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FDefault.pm;h=6586351354a3202b910e17f4ce635ecdb408d9e2;hp=e12816f942a7a068542e8f1b5298f3b5c170f18f;hb=c4586fd07d4c17c49b4da9c224c6dcf1a782a099;hpb=26dc649ad1a74622697f25fcbf29e806e75fcd2f diff --git a/lib/Catalyst/DispatchType/Default.pm b/lib/Catalyst/DispatchType/Default.pm index e12816f..6586351 100644 --- a/lib/Catalyst/DispatchType/Default.pm +++ b/lib/Catalyst/DispatchType/Default.pm @@ -20,7 +20,7 @@ dispatch types, see: =over 4 -=item * L for how they affect website authors +=item * L for how they affect application authors =item * L for implementation information. @@ -41,7 +41,7 @@ other possibilities have been exhausted. sub match { my ( $self, $c, $path ) = @_; - return if $path =~ m!/!; # Not at root yet, wait for it ... + return if $path ne ''; # Not at root yet, wait for it ... my $result = ( $c->get_actions( 'default', $c->req->path ) )[-1]; # Find default on namespace or super @@ -58,13 +58,15 @@ sub match { return 0; } +sub _is_low_precedence { 1 } + =head1 AUTHORS Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT -This program is free software, you can redistribute it and/or modify it under +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut