Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Chase changes to END handling.

  • Loading branch information...
commit d0c7ae6a7df15c583984f1502fe06b443727d376 1 parent 12a439a
@jnthn authored
Showing with 5 additions and 2 deletions.
  1. +5 −2 bin/perl6-debug.nqp
View
7 bin/perl6-debug.nqp
@@ -475,7 +475,7 @@ sub MAIN(@ARGS) {
my @*MODULES := [];
# Set up END block list, which we'll run at exit.
- my @*END_PHASERS := [];
+ nqp::bindhllsym('perl6', '@END_PHASERS', []);
# Force loading of the debugger module.
my $pname := @ARGS.shift();
@@ -490,5 +490,8 @@ sub MAIN(@ARGS) {
$comp.command_line(@ARGS, :encoding('utf8'), :transcode('ascii iso-8859-1'));
# Run any END blocks before exiting.
- for @*END_PHASERS { $_() }
+ for nqp::gethllsym('perl6', '@END_PHASERS') {
+ my $result := $_();
+ nqp::can($result, 'sink') && $result.sink();
+ }
}
Please sign in to comment.
Something went wrong with that request. Please try again.