Skip to content
Permalink
Browse files

Ensure we run &THE_END when using custom Exception handler

Fixes lack of deprecation warning for RAKUDO_EXCEPTIONS_HANDLER env var
  • Loading branch information...
zoffixznet committed Jul 29, 2018
1 parent 5e1df41 commit d2116efd569cb9ce140cd3db8d5d7cf5befe96c7
Showing with 6 additions and 2 deletions.
  1. +6 −2 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;
}
}

0 comments on commit d2116ef

Please sign in to comment.
You can’t perform that action at this time.