parse type-constrained sigilless parameters

rakudo · Aug 13, 2012 · 5740db1 · 5740db1
1 parent c0ad1c0
commit 5740db1
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1747,7 +1747,12 @@ grammar Perl6::Grammar is HLL::Grammar {
         [
         | <type_constraint>+
             [
-            | $<quant>=['**'|'*'|'\\'|'|'] <param_var>
+            | $<quant>=['**'|'*'] <param_var>
+            | $<quant>=['\\'|'|'] <param_var> {
+            pir::getstderr__P().print("Obsolete use of | or \\ with sigil on param { $<param_var> }\n")
+        }
+            | $<quant>=['\\'|'|'] <defterm>
+
             | [ <param_var> | <named_param> ] $<quant>=['?'|'!'|<?>]
             | <?>
             ]