Parse current protoregex syntax; keep older deprecated ones for now, …

…though we'll put a warning in the next * release about them.
rakudo · Nov 16, 2011 · 88f6945 · 88f6945
1 parent 8f1f5d1
commit 88f6945
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1643,7 +1643,9 @@ grammar Perl6::Grammar is HLL::Grammar {
           <deflongname>?
           <.newpad>
           [ [ ':'?'(' <signature> ')'] | <trait> ]*
-          '{'[ '<...>' |<p6regex=.LANG('Regex','nibbler')>]'}'<?ENDSTMT>
+          '{'[
+            | ['*'|'<...>'|'<*>'] <?{ $*MULTINESS eq 'proto' }> $<onlystar>={1}
+            |<p6regex=.LANG('Regex','nibbler')>]'}'<?ENDSTMT>
           { $*CURPAD := $*ST.pop_lexpad() }
         ] || <.panic: "Malformed regex">
     ] }