[perl #58278] [BUG] Slurpy params give "Cannot morph a Perl6Scalar." error

[Vasily Chekalkin via RT]

Hello.

There is patch that fixes this error (and makes first 6 tests from
S06/slurpy-params.t passing). Unfortunately it triggers bug from #58718

-- 
Bacek.

diff --git a/languages/perl6/src/parser/actions.pm b/languages/perl6/src/parser/actions.pm
index 349f433..27ddcd0 100644
--- a/languages/perl6/src/parser/actions.pm
+++ b/languages/perl6/src/parser/actions.pm
@@ -1068,7 +1068,8 @@ method signature($/) {
                     ),
                     PAST::Op.new(
                         :inline(
-                            '    %r = new "Perl6Scalar", %0',
+                            '    %r = new "Perl6Scalar"',
+                            '    %r."infix:="(%0)',
                             '    $P0 = get_hll_global ["Bool"], "True"',
                             '    setprop %r, "readonly", $P0'
                         ),
@@ -1089,8 +1090,7 @@ method signature($/) {
                     ),
                     PAST::Op.new(
                         :inline(
-                            '    %r = new "Perl6Scalar"',
-                            '    %r."infix:="(%0)'
+                            '    %r = clone %0'
                         ),
                         PAST::Var.new(
                             :name($parameter.name()),