From 0b001b973813e3826db2745762c1a66e41ef29d4 Mon Sep 17 00:00:00 2001 From: Altai-man Date: Mon, 27 Jan 2020 11:38:39 +0200 Subject: [PATCH 1/2] Use modern HLL name Preserving backward compatibility with the old one --- examples/test_repl.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/test_repl.pl b/examples/test_repl.pl index 38e393a..5018367 100644 --- a/examples/test_repl.pl +++ b/examples/test_repl.pl @@ -3,7 +3,7 @@ use IO::Capture::Simple; my $save_ctx; -my $comp = nqp::getcomp('perl6'); +my $comp = nqp::getcomp('Raku') // nqp::getcomp('perl6'); while 1 { my $code = prompt("> "); From 765772a24cc697d225b6eafad7aec4062a91e481 Mon Sep 17 00:00:00 2001 From: Altai-man Date: Tue, 28 Jan 2020 16:21:20 +0200 Subject: [PATCH 2/2] Fix operator --- examples/test_repl.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/test_repl.pl b/examples/test_repl.pl index 5018367..c42587f 100644 --- a/examples/test_repl.pl +++ b/examples/test_repl.pl @@ -3,7 +3,7 @@ use IO::Capture::Simple; my $save_ctx; -my $comp = nqp::getcomp('Raku') // nqp::getcomp('perl6'); +my $comp = nqp::getcomp('Raku') || nqp::getcomp('perl6'); while 1 { my $code = prompt("> ");