Dispatcher fix (also can avoid creating an iterator).

rakudo · Aug 30, 2012 · f92c7fb · f92c7fb
1 parent b4a2b7a
commit f92c7fb
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/Perl6/Metamodel/Dispatchers.pm b/src/Perl6/Metamodel/Dispatchers.pm
@@ -31,8 +31,11 @@ class Perl6::Metamodel::BaseDispatcher {
             @pos[$i] := $capture[$i];
             $i := $i + 1;
         }
-        for pir::getattribute__PPs($capture, 'named') {
-            %named{$_} := $capture{$_};
+        my @nameds := pir::getattribute__PPs($capture, 'named');
+        unless nqp::isnull(@nameds) {
+            for @nameds {
+                %named{$_} := $capture{$_};
+            }
         }
 
         # Call.