Skip to content
Permalink
Browse files

Serialize a Perl 6 level string instead of a raw NQP one

  • Loading branch information...
pmurias committed Mar 27, 2019
1 parent b0668b2 commit 75e2fb70171b91b04ccde534180ad9e151b6cecc
Showing with 5 additions and 3 deletions.
  1. +5 −3 src/core/Compiler.pm6
@@ -3,10 +3,10 @@ class Compiler does Systemic {
has Str $.release;
has Str $!build-date;
has Str $.codename;
my constant $id = nqp::sha1(
my constant $id = nqp::p6box_s(nqp::sha1(
$*W.handle.Str
~ nqp::atkey(nqp::getcurhllsym('$COMPILER_CONFIG'), 'source-digest')
);
));

submethod BUILD (
:$!name = 'rakudo',
@@ -19,7 +19,9 @@ class Compiler does Systemic {
) {
# XXX Various issues with this stuff on JVM
my Mu $compiler := nqp::getcurhllsym('$COMPILER_CONFIG');
$!id = nqp::p6box_s(nqp::ifnull(nqp::atkey($compiler,'id'),$id));
$!id = nqp::isnull(nqp::atkey($compiler,'id'))
?? $id
!! nqp::p6box_s(nqp::atkey($compiler,'id'));
# looks like: 2018.01-50-g8afd791c1
$!version = $version
// Version.new(nqp::atkey($compiler, 'version'));

0 comments on commit 75e2fb7

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