Lazily initialize $*SCHEDULER

rakudo · Sep 10, 2014 · d1dd37e · d1dd37e
1 parent f79201d
commit d1dd37e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/ThreadPoolScheduler.pm b/src/core/ThreadPoolScheduler.pm
@@ -137,6 +137,8 @@ my class ThreadPoolScheduler does Scheduler {
 }
 
 # This thread pool scheduler will be the default one.
-$PROCESS::SCHEDULER = ThreadPoolScheduler.new();
+multi sub INITIALIZE_DYNAMIC('$*SCHEDULER') {
+    PROCESS::<$SCHEDULER> = ThreadPoolScheduler.new();
+}
 
 # vim: ft=perl6 expandtab sw=4