Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add obsolete operator catchers for =~ and !~.
  • Loading branch information
jnthn committed Mar 23, 2010
1 parent 0188099 commit 01cc996
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions src/Perl6/Grammar.pm
Expand Up @@ -1416,6 +1416,9 @@ token infix:sym«<=>» { <sym> <O('%structural')> }
token infix:sym<but> { <sym> <O('%structural')> }
token infix:sym<does> { <sym> <O('%structural')> }

token infix:sym<!~> { <sym> \s <.obs('!~ to do negated pattern matching', '!~~')> <O('%chaining')> }
token infix:sym<=~> { <sym> <.obs('=~ to do pattern matching', '~~')> <O('%chaining')> }

grammar Perl6::Regex is Regex::P6Regex::Grammar {
token metachar:sym<:my> {
':' <?before 'my'> <statement=.LANG('MAIN', 'statement')> <.ws> ';'
Expand Down

0 comments on commit 01cc996

Please sign in to comment.