[Catalyst-commits] r11057 - Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType

[gbjk at dev.catalyst.perl.org]

Author: gbjk
Date: 2009-08-07 16:45:03 +0000 (Fri, 07 Aug 2009)
New Revision: 11057

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm
Log:
DispatchType::Chained fix for default args attribute to handle Args(0) vs Args() at depth.


Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm	2009-08-07 11:51:05 UTC (rev 11056)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm	2009-08-07 16:45:03 UTC (rev 11057)
@@ -233,8 +233,10 @@
                     local $c->req->{arguments} = [ @{$c->req->args}, @parts ];
                     next TRY_ACTION unless $action->match($c);
                 }
-                my $args_attr = $action->attributes->{Args}->[0];
 
+                # Default args is blank, not 0, since Args()
+                my $args_attr = $action->attributes->{Args}->[0] || '';
+
                 #    No best action currently
                 # OR This one matches with fewer parts left than the current best action,
                 #    And therefore is a better match