Ensure that regex compiler sees the name of the regex. Fixes use of <…

…sym> in protoregexes, and protoregex.t now passes all but one test (which seems to be unrelated to protoregexes themselves).
rakudo · Nov 16, 2011 · e41953a · e41953a
1 parent a8b2873
commit e41953a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1641,6 +1641,7 @@ grammar Perl6::Grammar is HLL::Grammar {
         [
           { $*IN_DECL := '' }
           <deflongname>?
+          { if $<deflongname> { %*RX<name> := $<deflongname>[0].Str } }
           <.newpad>
           [ [ ':'?'(' <signature> ')'] | <trait> ]*
           '{'[