Fix ignoremark on backslashed literals.

jnthn · jnthn · commit 1a51a91032e9 · 2017-01-02T19:02:13.000+01:00
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -401,7 +401,7 @@ class QRegex::P6Regex::Actions is HLL::Actions {
 
     method backslash:sym<misc>($/) {
         my $qast := QAST::Regex.new( ~$/ , :rxtype('literal'), :node($/) );
-        make $qast;
+        make self.apply_literal_modifiers($qast);
     }
 
     method cclass_backslash:sym<s>($/) {

Original file line number	Diff line number	Diff line change
`@@ -401,7 +401,7 @@ class QRegex::P6Regex::Actions is HLL::Actions {`
`401`	`401`
`402`	`402`	`method backslash:sym<misc>($/) {`
`403`	`403`	`my $qast := QAST::Regex.new( ~$/ , :rxtype('literal'), :node($/) );`
`404`		`- make $qast;`
	`404`	`+ make self.apply_literal_modifiers($qast);`
`405`	`405`	`}`
`406`	`406`
`407`	`407`	`method cclass_backslash:sym<s>($/) {`