warn on obsolete use of \ and | with sigilled parameter

rakudo · Aug 29, 2012 · d703632 · d703632
1 parent f3d2b53
commit d703632
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1760,16 +1760,14 @@ grammar Perl6::Grammar is HLL::Grammar {
         | <type_constraint>+
             [
             | $<quant>=['**'|'*'] <param_var>
-            | $<quant>=['\\'|'|'] <param_var>
-# { pir::getstderr__P().print("Obsolete use of | or \\ with sigil on param { $<param_var> }\n") }
+            | $<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>=['?'|'!'|<?>]
             | <?>
             ]
         | $<quant>=['**'|'*'] <param_var>
-        | $<quant>=['\\'|'|'] <param_var>
-# { pir::getstderr__P().print("Obsolete use of | or \\ with sigil on param { $<param_var> }\n") }
+        | $<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')>