stackoverflow path bug take two

diff --git a/lib/Catalyst/DispatchType/Path.pm b/lib/Catalyst/DispatchType/Path.pm
index 6687326..b51f06c 100644 (file)
--- a/lib/Catalyst/DispatchType/Path.pm
+++ b/lib/Catalyst/DispatchType/Path.pm
@@ -6,6 +6,7 @@ extends 'Catalyst::DispatchType';
 use Text::SimpleTable;
 use Catalyst::Utils;
 use URI;
+use Scalar::Util ();
 
 has _paths => (
                is => 'rw',
@@ -61,6 +62,16 @@ sub list {
       if ( keys %{ $self->_paths } );
 }
 
+sub _action_args_sort_order {
+    my ( $self, $action ) = @_;
+
+    my ($args) = @{ $action->attributes->{Args} || [] };
+
+    return $args if Scalar::Util::looks_like_number($args);
+
+    return ~0;
+}
+
 =head2 $self->match( $c, $path )
 
 For each action registered to this exact path, offers the action a chance to
@@ -75,8 +86,8 @@ sub match {
     $path = '/' if !defined $path || !length $path;
 
     # sort from least args to most
-    my @actions = sort { ($b->attributes->{Args}||0) <=>
-                      ($a->attributes->{Args}||0) }
+    my @actions = sort { $self->_action_args_sort_order($a) <=>
+                         $self->_action_args_sort_order($b) }
             @{ $self->_paths->{$path} || [] };
 
     foreach my $action ( @actions ) {

diff --git a/t/aggregate/live_component_controller_action_path_matchsingle.t b/t/aggregate/live_component_controller_action_path_matchsingle.t
index 6370e01..34ad404 100644 (file)
--- a/t/aggregate/live_component_controller_action_path_matchsingle.t
+++ b/t/aggregate/live_component_controller_action_path_matchsingle.t
@@ -10,7 +10,7 @@ our $iters;
 
 BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; }
 
-use Test::More tests => 2*$iters;
+use Test::More tests => 3*$iters;
 use Catalyst::Test 'TestAppMatchSingleArg';
 
 if ( $ENV{CAT_BENCHMARK} ) {
@@ -25,7 +25,8 @@ else {
 
 sub run_tests {
     {
-        is(get('/foo/bar'), 'Path', 'multiple args matched :Path');
+        is(get('/foo/bar/baz'), 'Path', 'multiple args matched :Path');
         is(get('/foo'), 'Path Args(1)', 'single arg matched :Path Args(1)');
+        is(get('/foo/bar'), 'Path Args(2)', 'two args matched :Path Args(2)');
     }
 }

diff --git a/t/lib/TestAppMatchSingleArg/Controller/Root.pm b/t/lib/TestAppMatchSingleArg/Controller/Root.pm
index ab24f12..d00b6ae 100644 (file)
--- a/t/lib/TestAppMatchSingleArg/Controller/Root.pm
+++ b/t/lib/TestAppMatchSingleArg/Controller/Root.pm
@@ -16,4 +16,9 @@ sub match_other : Path {
     $c->res->body('Path');
 }
 
+sub match_two : Path Args(2) {
+    my ($self, $c) = @_;
+    $c->res->body('Path Args(2)');
+}
+
 1;