start to parse sub f(\sigilless), and warn about old usage

rakudo · Aug 13, 2012 · c0ad1c0 · c0ad1c0
1 parent e20252c
commit c0ad1c0
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1751,7 +1751,11 @@ grammar Perl6::Grammar is HLL::Grammar {
             | [ <param_var> | <named_param> ] $<quant>=['?'|'!'|<?>]
             | <?>
             ]
-        | $<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>=['?'|'!'|<?>]
         | <longname> <.panic('Invalid typename in parameter declaration')>
         ]
@@ -1789,6 +1793,10 @@ grammar Perl6::Grammar is HLL::Grammar {
         }
     }
 
+    token defterm {
+        <identifier>
+    }
+
     token param_var {
         | '[' ~ ']' <signature>
         | '(' ~ ')' <signature>