Allow hyphens at the start of a character class

Author: perlpilot

src/QRegex/P6Regex/Grammar.nqp

@@ -347,7 +347,7 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
         <.normspace>?
         [
         | '[' $<charspec>=(
-                  || \s* '-' <!before \s* ']'> <.obs: '- as character range','.. for range, for explicit - in character class, escape it or place as last thing'>
+                  || [ <!after '[' > \s* '-' <!before \s* ']'> ] <.obs: '- as character range','.. for range, for explicit - in character class, escape it or place it as the first or last thing'>
                   || \s* ( '\\' <cclass_backslash> || (<-[\]\\]>) )
                      [
                          \s* '..' \s*

t/qregex/rx_charclass

@@ -29,9 +29,7 @@
 <[ - ]>			ab-def		y	unescaped hyphen, the only thing w spaces
 <[x-]>			ab-def		y	unescaped hyphen, at the end
 <[x - ]>		ab-def		y	unescaped hyphen, at the end w spaces
-# todo :pge<feature>
 <[-x]>			ab-def		y	unescaped hyphen, at the beginning
-# todo :pge<feature>
 <[ -x]>			ab-def		y	unescaped hyphen, at the beginning w spaces
 <[\-]>			ab-def		y	escaped hyphen
 <[\-]>			abcdef		n	escaped hyphen