Convert Parrot arrays to Perl 6 arrays, moritz++

plperl6.pir

@@ -1,8 +1,9 @@
 .sub run
     .param string code
     .param pmc args :slurpy
-    $S0 = "my $r = eval q<<<\nsub {"
-    $S1 = "}\n>>>; $r.()"
+    args = convert_to_perl6_array(args)
+    $S0 = "my $r = eval q<<< sub {"
+    $S1 = "} >>>; $r.()"
     code = $S0 . code
     code .= $S1
     load_bytecode 'dumper.pbc'
@@ -15,5 +16,17 @@
     $P2 = $P1(args)
     print "code returned: "
     _dumper($P2)
+    say "=============="
     .return($P2)
 .end
+
+.sub convert_to_perl6_array
+    .param pmc parrot_array
+    .local pmc arrayizer
+    arrayizer = get_root_global ['perl6'], '&infix:<,>'
+    unless arrayizer goto error
+    $P0 = arrayizer(parrot_array :flat)
+    .return($P0)
+  error:
+    die "Could not turn Parrot array into a Perl 6 array!"
+.end

t/sql/plperl6.sql

@@ -26,6 +26,7 @@ CREATE FUNCTION test_int_plperl6(integer) RETURNS int LANGUAGE plperl6 AS $$
 $$;
 
 CREATE FUNCTION test_arguments_plperl6(integer) RETURNS int LANGUAGE plperl6 AS $$
+say '@_ = ', @_;
 @_[0]
 $$;