parse <[...]> as unbalanced text, not balanced

perl6 · Oct 26, 2011 · be1f10e · be1f10e
1 parent 580b69a
commit be1f10e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/STD.pm6 b/STD.pm6
@@ -5092,7 +5092,7 @@ grammar Regex is STD {
     token cclass_elem:sym<[ ]> {
         :my $*CCSTATE = '';
         :dba('character class element')
-        <before '['> <quibble($¢.cursor_fresh( %*LANG<Q> ).tweak(:cc))>
+        "[" ~ "]" <nibble($¢.cursor_fresh( %*LANG<Q> ).tweak(:cc).unbalanced("]"))>
         <.normspace>?
     }