Fix issues with reporting warnings on threads.

rakudo · Sep 7, 2014 · 22a4c05 · 22a4c05
1 parent 57573e8
commit 22a4c05
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/src/core/Thread.pm b/src/core/Thread.pm
@@ -14,7 +14,16 @@ my class Thread {
 
     submethod BUILD(:&code!, :$!app_lifetime as Bool = False, :$!name as Str = "<anon>") {
         $!vm_thread := nqp::newthread(
-            { my $*THREAD = self; code(); },
+            {
+                my $*THREAD = self;
+                CONTROL {
+                    default {
+                        my Mu $vm-ex := nqp::getattr(nqp::decont($_), Exception, '$!ex');
+                        nqp::getcomp('perl6').handle-control($vm-ex);
+                    }
+                }
+                code();
+            },
             $!app_lifetime ?? 1 !! 0);
     }