Make sure increase in limit starts processes

rakudo · Oct 21, 2015 · 5e8e234 · 5e8e234
1 parent 5d83db3
commit 5e8e234
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/Supply.pm b/src/core/Supply.pm
@@ -951,6 +951,8 @@ my role Supply {
                        if $type eq 'limit' {
                            $allowed = $allowed + $value - $limit;
                            $limit   = $value;
+                           start-process(@buffer.shift)
+                             while $allowed > 0 && @buffer;
                        }
                        elsif $type eq 'bleed' && $bleed {
                            my int $todo = $value min +@buffer;