Implemnt (?m).

jnthn · jnthn · commit 28bf11c08bcb · 2012-10-07T21:08:22.000+02:00
diff --git a/src/QRegex/P5Regex/Actions.nqp b/src/QRegex/P5Regex/Actions.nqp
@@ -75,7 +75,7 @@ class QRegex::P5Regex::Actions is HLL::Actions {
     }
 
     method p5metachar:sym<^>($/) {
-        make QAST::Regex.new( :rxtype<anchor>, :subtype<bos>, :node($/) );
+        make QAST::Regex.new( :rxtype<anchor>, :subtype(%*RX<m> ?? 'bol' !! 'bos'), :node($/) );
     }
 
     method p5metachar:sym<$>($/) {
@@ -85,7 +85,7 @@ class QRegex::P5Regex::Actions is HLL::Actions {
                 :rxtype('quant'), :min(0), :max(1),
                 QAST::Regex.new( :rxtype('literal'), "\n" )
             ),
-            QAST::Regex.new( :rxtype<anchor>, :subtype<eos>, :node($/) )
+            QAST::Regex.new( :rxtype<anchor>, :subtype(%*RX<m> ?? 'eol' !! 'eos'), :node($/) )
         );
     }
     

Original file line number	Diff line number	Diff line change
`@@ -75,7 +75,7 @@ class QRegex::P5Regex::Actions is HLL::Actions {`
`75`	`75`	`}`
`76`	`76`
`77`	`77`	`method p5metachar:sym<^>($/) {`
`78`		`- make QAST::Regex.new( :rxtype<anchor>, :subtype<bos>, :node($/) );`
	`78`	`+ make QAST::Regex.new( :rxtype<anchor>, :subtype(%*RX<m> ?? 'bol' !! 'bos'), :node($/) );`
`79`	`79`	`}`
`80`	`80`
`81`	`81`	`method p5metachar:sym<$>($/) {`
`@@ -85,7 +85,7 @@ class QRegex::P5Regex::Actions is HLL::Actions {`
`85`	`85`	`:rxtype('quant'), :min(0), :max(1),`
`86`	`86`	`QAST::Regex.new( :rxtype('literal'), "\n" )`
`87`	`87`	`),`
`88`		`- QAST::Regex.new( :rxtype<anchor>, :subtype<eos>, :node($/) )`
	`88`	`+ QAST::Regex.new( :rxtype<anchor>, :subtype(%*RX<m> ?? 'eol' !! 'eos'), :node($/) )`
`89`	`89`	`);`
`90`	`90`	`}`
`91`	`91`