[Catalyst-commits] r10601 - Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-20 00:19:18 +0000 (Sat, 20 Jun 2009)
New Revision: 10601

Modified:
   Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/Dispatcher.pm
Log:
minor change

Modified: Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/Dispatcher.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/Dispatcher.pm	2009-06-19 23:47:02 UTC (rev 10600)
+++ Catalyst-Runtime/5.80/branches/index_default_fuckage/lib/Catalyst/Dispatcher.pm	2009-06-20 00:19:18 UTC (rev 10601)
@@ -535,7 +535,7 @@
     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;