[Catalyst-commits] r12033 - Catalyst-Runtime/5.80/branches/contextual_uri_for/lib/Catalyst/DispatchType

[pjfl at dev.catalyst.perl.org]

Author: pjfl
Date: 2009-11-26 20:56:01 +0000 (Thu, 26 Nov 2009)
New Revision: 12033

Modified:
   Catalyst-Runtime/5.80/branches/contextual_uri_for/lib/Catalyst/DispatchType/Chained.pm
Log:
Fixed uninitialized value warning in contextual_uri_for branch Chained

Modified: Catalyst-Runtime/5.80/branches/contextual_uri_for/lib/Catalyst/DispatchType/Chained.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/contextual_uri_for/lib/Catalyst/DispatchType/Chained.pm	2009-11-26 19:37:17 UTC (rev 12032)
+++ Catalyst-Runtime/5.80/branches/contextual_uri_for/lib/Catalyst/DispatchType/Chained.pm	2009-11-26 20:56:01 UTC (rev 12033)
@@ -432,7 +432,8 @@
         push @captures, splice @{ $args }, 0, $num_caps;
     }
 
-    if (defined $args->[ $attrs->{Args}->[0] ]) {
+    if (    defined $attrs->{Args}->[0]
+        and defined $args->[ $attrs->{Args}->[0] ]) {
         $c->log->debug( 'Action '.$action->reverse.' too many args' )
             if ($c->debug);
     }