Skip to content
Browse files

warn on obsolete use of \ and | with sigilled parameter

  • Loading branch information...
1 parent f3d2b53 commit d7036329db0c835a69a14d0a49a83f9b702aa8d4 @moritz moritz committed Aug 29, 2012
Showing with 2 additions and 4 deletions.
  1. +2 −4 src/Perl6/Grammar.pm
View
6 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')>

0 comments on commit d703632

Please sign in to comment.
Something went wrong with that request. Please try again.