in Exception, make sure we have a parrot exception before throwing

rakudo · Aug 3, 2011 · 0c51f85 · 0c51f85
1 parent 69e9988
commit 0c51f85
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -6,6 +6,9 @@ my class Exception {
     }
 
     method throw() {
+        nqp::bindattr(self, Exception, '$!ex', pir::new('Exception'))
+            unless pir::defined($!ex);
+        pir::setattribute__vPsP($!ex, 'payload', pir::perl6_decontainerize__PP(self));
         pir::throw__0P($!ex)
     }
     method rethrow() {