Skip to content
Permalink
Browse files

Rename RAKUDO_EXCEPTIONS_HANDLER

To not use implementation-specific name for the var. Per 6.d-prep
  • Loading branch information...
zoffixznet committed Jul 29, 2018
1 parent d77a51d commit 5e1df41b343283217489d471651ab437d9cabdcd
Showing with 11 additions and 0 deletions.
  1. +11 −0 src/core/Exception.pm6
@@ -362,12 +362,23 @@ do {
my $e := EXCEPTION($ex);

if %*ENV<RAKUDO_EXCEPTIONS_HANDLER> -> $handler {
# REMOVE DEPRECATED CODE ON 201907
Rakudo::Deprecations.DEPRECATED: "PERL6_EXCEPTIONS_HANDLER", Nil,
'2019.07', :file("N/A"), :line("N/A"),
:what<RAKUDO_EXCEPTIONS_HANDLER env var>;
my $class := ::("Exceptions::$handler");
unless nqp::istype($class,Failure) {
temp %*ENV<RAKUDO_EXCEPTIONS_HANDLER> = ""; # prevent looping
return unless $class.process($e)
}
}
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)
}
}

try {
my $v := $e.vault-backtrace;

0 comments on commit 5e1df41

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