Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Eliminate a pir::.

  • Loading branch information...
commit fde47261556f55ed9ea6dde39ae14888f8f2314f 1 parent d0c7ae6
@jnthn authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 lib/Debugger/UI/CommandLine.pm
View
6 lib/Debugger/UI/CommandLine.pm
@@ -657,7 +657,7 @@ my $IN_UNHANDLED = 0;
my $IN_THROWN = 0;
my $CUR_EX;
&EXCEPTION.wrap(-> | {
- my Mu $vm_ex := nqp::atpos(pir::perl6_current_args_rpa__P(), 0);
+ my Mu $vm_ex := nqp::atpos(nqp::p6argvmarray(), 0);
my $e = callsame;
unless $IN_UNHANDLED || $IN_THROWN || DebugState.in_prompt {
if DebugState.should_break_on_throw() {
@@ -697,12 +697,12 @@ sub thrown(|) {
# Override handler for uncaught exceptions.
my Mu $p6comp := nqp::getcomp('perl6');
$p6comp.HOW.find_method($p6comp, 'handle-exception').wrap(-> | {
- my Mu $vm_ex := nqp::atpos(pir::perl6_current_args_rpa__P(), 1);
+ my Mu $vm_ex := nqp::atpos(nqp::p6argvmarray(), 1);
pir::perl6_invoke_catchhandler__vPP(&unhandled, $vm_ex);
});
sub unhandled(|) {
$IN_UNHANDLED = 1;
- my Mu $vm_ex := nqp::atpos(pir::perl6_current_args_rpa__P(), 0);
+ my Mu $vm_ex := nqp::atpos(nqp::p6argvmarray(), 0);
my $e = EXCEPTION($vm_ex);
my $bt = $e.backtrace();
my $ctx = CALLER;
Please sign in to comment.
Something went wrong with that request. Please try again.