X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatcher.pm;h=08a4248e0d4f066513d76e02c629515dcb44ead7;hp=cb22e63a6b9b6fa824bf2a9455e2090117ca8fc0;hb=7b442de55a57592a0a9f09db2e85b135bb0c123f;hpb=1315d253bbf854cbd9740ef4323a9930411b9fa0

diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm
index cb22e63..08a4248 100644
--- 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;