Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
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
  • Loading branch information
niner committed Oct 7, 2016
1 parent 22f7f33 commit 9be9e5a
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion lib/Inline/Perl5.pm6
Expand Up @@ -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;
}

Expand Down

0 comments on commit 9be9e5a

Please sign in to comment.