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

[gbjk at dev.catalyst.perl.org]

Author: gbjk
Date: 2009-08-07 17:17:15 +0000 (Fri, 07 Aug 2009)
New Revision: 11058

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm
Log:
DispatchType::Chained fix failing test of Args(0) vs Args(0) on surface


Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm	2009-08-07 16:45:03 UTC (rev 11057)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/DispatchType/Chained.pm	2009-08-07 17:17:15 UTC (rev 11058)
@@ -235,7 +235,8 @@
                 }
 
                 # Default args is blank, not 0, since Args()
-                my $args_attr = $action->attributes->{Args}->[0] || '';
+                my $args_attr = $action->attributes->{Args}->[0];
+                $args_attr = '' unless defined $args_attr;
 
                 #    No best action currently
                 # OR This one matches with fewer parts left than the current best action,