Use Perl 6 heredocs and add a test for using single quotes in PL/Perl…

…6 procedures

plperl6.pir

@@ -1,7 +1,7 @@
 .sub run
     .param string code
-    $S0 = "my $r = eval 'sub {"
-    $S1 = "}'; $r.()"
+    $S0 = "my $r = eval q<<<\nsub {"
+    $S1 = "}\n>>>; $r.()"
     code = $S0 . code
     code .= $S1
     load_bytecode 'dumper.pbc'

t/sql/plperl6.sql

@@ -15,7 +15,7 @@ BEGIN;
 \i plparrot.sql
 
 -- Plan the tests.
-SELECT plan(4);
+SELECT plan(5);
 
 CREATE FUNCTION test_void_plperl6(integer) RETURNS void AS $$ Nil $$ LANGUAGE plperl6;
 
@@ -25,10 +25,13 @@ CREATE FUNCTION test_float_plperl6(integer) RETURNS float AS $$ 5.0 $$ LANGUAGE
 
 CREATE FUNCTION test_string_plperl6() RETURNS varchar AS $$ "rakudo" $$ LANGUAGE plperl6;
 
+CREATE FUNCTION test_singlequote_plperl6() RETURNS varchar AS $$ 'rakudo*' $$ LANGUAGE plperl6;
+
 select is(test_int_plperl6(89),42,'Return an integer from PL/Perl6');
 select is(test_void_plperl6(42)::text,''::text,'Return nothing from PL/Perl6');
 select is(test_float_plperl6(2), 5.0::float,'Return a float from PL/Perl6');
 select is(test_string_plperl6(), 'rakudo','Return a varchar from PL/Perl6');
+select is(test_singlequote_plperl6(), 'rakudo*','Use a single quote in a PL/Perl6 procedure');
 
 -- Finish the tests and clean up.
 SELECT * FROM finish();