Ensure we run &THE_END when using custom Exception handler

Fixes lack of deprecation warning for RAKUDO_EXCEPTIONS_HANDLER env var
rakudo · Jul 29, 2018 · d2116ef · d2116ef
1 parent 5e1df41
commit d2116ef
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/core/Exception.pm6 b/src/core/Exception.pm6
@@ -369,14 +369,18 @@ do {
             my $class := ::("Exceptions::$handler");
             unless nqp::istype($class,Failure) {
                 temp %*ENV<RAKUDO_EXCEPTIONS_HANDLER> = ""; # prevent looping
-                return unless $class.process($e)
+                my $res := $class.process($e);
+                nqp::getcurhllsym('&THE_END')();
+                return unless $res;
             }
         }
         if %*ENV<PERL6_EXCEPTIONS_HANDLER> -> $handler {
             my $class := ::("Exceptions::$handler");
             unless nqp::istype($class,Failure) {
                 temp %*ENV<PERL6_EXCEPTIONS_HANDLER> = ""; # prevent looping
-                return unless $class.process($e)
+                my $res := $class.process($e);
+                nqp::getcurhllsym('&THE_END')();
+                return unless $res;
             }
         }