X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FDispatchType%2FChained.pm;fp=lib%2FCatalyst%2FDispatchType%2FChained.pm;h=d34545cf192c31847d2bcda615d9c1d4befbfe14;hb=10305533628cbf1c43ef6756850afd5d63eb6f53;hp=e65cd906fe59550434d85cc800aa5ba5b8b10bbb;hpb=b40f98247e6d1c1a68517059d8bcbea48a93d8ad;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/DispatchType/Chained.pm b/lib/Catalyst/DispatchType/Chained.pm index e65cd90..d34545c 100644 --- a/lib/Catalyst/DispatchType/Chained.pm +++ b/lib/Catalyst/DispatchType/Chained.pm @@ -432,7 +432,8 @@ sub splice_captures_from { 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); }