Fix Supply::on for @supply case

rakudo · Apr 20, 2014 · b1ace93 · b1ace93
1 parent ae2bc53
commit b1ace93
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/src/core/Supply.pm b/src/core/Supply.pm
@@ -166,7 +166,18 @@ sub on(&setup) {
                 unless $tap ~~ Pair {
                     X::Supply::On::BadSetup.new.throw;
                 }
-                add( $_, $tap.value ) for $tap.key;
+                given $tap.key {
+                    when Positional {
+                        my $todo := $tap.value;
+                        add( $_, $todo ) for .list;
+                    }
+                    when Supply {
+                        add( $_, $tap.value );
+                    }
+                    default {
+                        X::Supply::On::BadSetup.new.throw;
+                    }
+                }
             }
             $sub
         }