projects
/
catagits/Catalyst-Runtime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
minor change
[catagits/Catalyst-Runtime.git]
/
lib
/
Catalyst
/
Dispatcher.pm
diff --git
a/lib/Catalyst/Dispatcher.pm
b/lib/Catalyst/Dispatcher.pm
index
cb22e63
..
08a4248
100644
(file)
--- a/
lib/Catalyst/Dispatcher.pm
+++ b/
lib/Catalyst/Dispatcher.pm
@@
-535,7
+535,7
@@
sub register {
my @normal_dtypes;
my @low_precedence_dtypes;
- while (my $type = shift @dtypes) {
+ for my $type ( @dtypes ) {
if ($type->isa('Catalyst::DispatchType::Index') ||
$type->isa('Catalyst::DispatchType::Default')) {
push @low_precedence_dtypes, $type;