Process.pm6 (rakudo-2020.08.2) | : | Process.pm6 (rakudo-2020.09) | ||
---|---|---|---|---|
skipping to change at line 14 | skipping to change at line 14 | |||
state $level = %*ENV<RAKUDO_MODULE_DEBUG>++; | state $level = %*ENV<RAKUDO_MODULE_DEBUG>++; | |||
my $indent = (($level - 1) * 4) + 1; | my $indent = (($level - 1) * 4) + 1; | |||
my $str = @str>>.indent(7 + $indent).join("\n").substr(7 + $indent); | my $str = @str>>.indent(7 + $indent).join("\n").substr(7 + $indent); | |||
note sprintf "%2d%sRMD: $str", $level, " " x $indent; | note sprintf "%2d%sRMD: $str", $level, " " x $indent; | |||
} | } | |||
!! False | !! False | |||
} | } | |||
Rakudo::Internals.REGISTER-DYNAMIC: '$*EXECUTABLE', { | Rakudo::Internals.REGISTER-DYNAMIC: '$*EXECUTABLE', { | |||
PROCESS::<$EXECUTABLE> := IO::Path.new(:CWD(INIT nqp::cwd()), | PROCESS::<$EXECUTABLE> := IO::Path.new(:CWD(INIT nqp::cwd()), | |||
nqp::execname() | ||||
#?if jvm | #?if jvm | |||
$*VM.properties<perl6.execname> | || $*VM.properties<perl6.prefix> ~ '/bin/perl6-j' | |||
// $*VM.properties<perl6.prefix> ~ '/bin/perl6-j' | ||||
#?endif | #?endif | |||
#?if moar | #?if moar | |||
nqp::execname() | ||||
|| ($*VM.config<prefix> ~ '/bin/' | || ($*VM.config<prefix> ~ '/bin/' | |||
~ ($*VM.config<osname> eq 'MSWin32' ?? 'perl6-m.exe' !! 'perl6-m')) | ~ ($*VM.config<osname> eq 'MSWin32' ?? 'perl6-m.exe' !! 'perl6-m')) | |||
#?endif | #?endif | |||
#?if js | #?if js | |||
nqp::execname() | ||||
// ($*VM.config<prefix> ~ '/bin/' | // ($*VM.config<prefix> ~ '/bin/' | |||
~ ($*VM.config<osname> eq 'MSWin32' ?? 'perl6-js.bat' !! 'perl6-js')) | ~ ($*VM.config<osname> eq 'MSWin32' ?? 'perl6-js.bat' !! 'perl6-js')) | |||
#?endif | #?endif | |||
); | ); | |||
} | } | |||
Rakudo::Internals.REGISTER-DYNAMIC: '$*EXECUTABLE-NAME', { | Rakudo::Internals.REGISTER-DYNAMIC: '$*EXECUTABLE-NAME', { | |||
PROCESS::<$EXECUTABLE-NAME> := $*EXECUTABLE.basename; | PROCESS::<$EXECUTABLE-NAME> := $*EXECUTABLE.basename; | |||
} | } | |||
End of changes. 4 change blocks. | ||||
4 lines changed or deleted | 2 lines changed or added |