projects
/
catagits/Catalyst-Runtime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Disallow negative counts for CaptureArgs and Args
[catagits/Catalyst-Runtime.git]
/
lib
/
Catalyst
/
DispatchType
/
Chained.pm
diff --git
a/lib/Catalyst/DispatchType/Chained.pm
b/lib/Catalyst/DispatchType/Chained.pm
index
615f5aa
..
33e23d2
100644
(file)
--- a/
lib/Catalyst/DispatchType/Chained.pm
+++ b/
lib/Catalyst/DispatchType/Chained.pm
@@
-298,7
+298,7
@@
sub _check_args_attr {
my $args = $action->attributes->{$name}->[0];
if (defined($args) and not (
Scalar::Util::looks_like_number($args) and
- int($args) == $args
+ int($args) == $args and $args >= 0
)) {
require Data::Dumper;
local $Data::Dumper::Terse = 1;