whitespace is literal in P5 regexes

FROGGS · FROGGS · commit 10db9576b12d · 2013-08-16T21:30:26.000+02:00
diff --git a/src/QRegex/P5Regex/Grammar.nqp b/src/QRegex/P5Regex/Grammar.nqp
@@ -108,14 +108,14 @@ grammar QRegex::P5Regex::Grammar is HLL::Grammar {
         $<sign>=['^'|<?>]
         [
         || $<charspec>=(
-               \s* ( '\\' <backslash=p5backslash> || (<?{ $pastfirst == 0 }> <-[\\]> || <-[\]\\]>) )
+               ( '\\' <backslash=p5backslash> || (<?{ $pastfirst == 0 }> <-[\\]> || <-[\]\\]>) )
                [
                    \s* '-' \s*
                    ( '\\' <backslash=p5backslash> || (<-[\]\\]>) )
                ]**0..1
                { $pastfirst++ }
            )+
-           \s* ']'
+           ']'
         || <.panic: "failed to parse character class; unescaped ']'?">
         ]
     }

Original file line number	Diff line number	Diff line change
`@@ -108,14 +108,14 @@ grammar QRegex::P5Regex::Grammar is HLL::Grammar {`
`108`	`108`	`$<sign>=['^'\|<?>]`
`109`	`109`	`[`
`110`	`110`	`\|\| $<charspec>=(`
`111`		`- \s* ( '\\' <backslash=p5backslash> \|\| (<?{ $pastfirst == 0 }> <-[\\]> \|\| <-[\]\\]>) )`
	`111`	`+ ( '\\' <backslash=p5backslash> \|\| (<?{ $pastfirst == 0 }> <-[\\]> \|\| <-[\]\\]>) )`
`112`	`112`	`[`
`113`	`113`	`\s* '-' \s*`
`114`	`114`	`( '\\' <backslash=p5backslash> \|\| (<-[\]\\]>) )`
`115`	`115`	`]**0..1`
`116`	`116`	`{ $pastfirst++ }`
`117`	`117`	`)+`
`118`		`- \s* ']'`
	`118`	`+ ']'`
`119`	`119`	`\|\| <.panic: "failed to parse character class; unescaped ']'?">`
`120`	`120`	`]`
`121`	`121`	`}`