Fix poor error with some slurpies with defaults

Bug find: https://irclog.perlgeek.de/perl6-dev/2017-10-25#i_15352740
rakudo · Oct 25, 2017 · a92950f · a92950f
1 parent 97b11ed
commit a92950f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -4982,7 +4982,8 @@ class Perl6::Actions is HLL::Actions does STDActions {
         my $quant := $<quant>;
         if $<default_value> {
             my $name := %*PARAM_INFO<variable_name> // '';
-            if $quant eq '*' || $quant eq '|' {
+            if $quant eq '*'  || $quant eq '|'
+            || $quant eq '**' || $quant eq '+' {
                 $/.typed_sorry('X::Parameter::Default', how => 'slurpy',
                             parameter => $name);
             }