Skip to content
Permalink
Browse files

Fix Parameter.perl for slurpy parameters

  • Loading branch information...
lizmat committed Jan 11, 2019
1 parent d6b1bd2 commit d8b7fabe11169206ad99bf1445dafcc16a18d7dd
Showing with 6 additions and 1 deletion.
  1. +6 −1 src/core/Parameter.pm6
@@ -567,7 +567,12 @@ my class Parameter { # declared in BOOTSTRAP
}
my $default = self.default();
if self.slurpy {
$name = ($!flags +& $SIG_ELEM_SLURPY_ONEARG ?? '+' !! ($!flags +& $SIG_ELEM_SLURPY_LOL ?? "**" !! "*") ~ $name);
$name = $!flags +& $SIG_ELEM_SLURPY_ONEARG
?? "+$name"
!! $!flags +& $SIG_ELEM_SLURPY_LOL
?? "**$name"
!! "*$name";

} elsif self.named {
my $name1 := substr($name,1);
if @(self.named_names).first({$_ && $_ eq $name1}) {

0 comments on commit d8b7fab

Please sign in to comment.
You can’t perform that action at this time.