Work around a perl bug in argument handling

Perl tries to use the argument following a -- as script name so avoid the arg list ending in -- See https://rt.perl.org/Ticket/Display.html?id=129826
niner · Oct 7, 2016 · 9be9e5a · 9be9e5a
1 parent 22f7f33
commit 9be9e5a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Inline/Perl5.pm6 b/lib/Inline/Perl5.pm6
@@ -1356,7 +1356,9 @@ method BUILD(*%args) {
     }
     else {
         my @args = @*ARGS;
-        $!p5 = p5_init_perl(@args.elems + 4, CArray[Str].new('', '-e', '0', '--', |@args));
+        $!p5 = @args
+            ?? p5_init_perl(@args.elems + 4, CArray[Str].new('', '-e', '0', '--', |@args))
+            !! p5_init_perl(              3, CArray[Str].new('', '-e', '0'));
         X::Inline::Perl5::NoMultiplicity.new.throw unless $!p5.defined;
     }