don't allow whitespace in &.() et al. jnthn++

perl6 · Mar 1, 2012 · 882094e · 882094e
1 parent a540d4e
commit 882094e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -1911,14 +1911,14 @@ grammar P6 is STD {
             [
             | $<type>=[<[ ! ^ ]>?]<longname> [ <multisig> | <trait> ]*
             | <multisig> <trait>*
-            | <sigil> '.'
+            | <sigil>'.':!s
                 :dba('subscript signature')
                 [
                 | '(' ~ ')' <signature>
                 | '[' ~ ']' <signature>
                 | '{' ~ '}' <signature> # don't need curlycheck here
                 | <?before '<'> <postcircumfix>
-                ]
+                ]:s
                 <trait>*
             | <?>
             ]
@@ -5111,7 +5111,7 @@ grammar Regex is STD {
                                     ]?
     }
 
-    token assertion:sym<:> { <?before ':'<alpha>> <cclass_expr> }
+    token assertion:sym<:> { <?before ':'> <cclass_expr> }
     token assertion:sym<[> { <?before '['> <cclass_expr> }
     token assertion:sym<+> { <?before '+'> <cclass_expr> }
     token assertion:sym<-> { <?before '-'> <cclass_expr> }