Fix $< parsing (just replace what we had before with what STD has). F…

…ixes the S05 failures.
rakudo · Aug 31, 2012 · f962cf8 · f962cf8
1 parent 6c8ef80
commit f962cf8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1169,7 +1169,7 @@ grammar Perl6::Grammar is HLL::Grammar {
     }
 
     token special_variable:sym['$<'] {
-        <sym> <!before \s* \w+ \s* '>' >
+        <sym> <?before \h* <[ = , ; ? : ! ) \] } ]> <!before \S* '>'> >
         <.obs('$< variable', '$*UID')>
     }