Enable :sigspace modifier.

Raku · Jul 12, 2011 · 060dc92 · 060dc92
1 parent 05d1982
commit 060dc92
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -89,7 +89,10 @@ class QRegex::P6Regex::Actions is HLL::Actions {
     }
 
     method metachar:sym<ws>($/) {
-        make 0;
+        my $qast := %*RX<s>
+                    ?? QAST::Regex.new(PAST::Node.new('ws'), :rxtype<subrule>, :subtype<method>, :node($/))
+                    !! 0;
+        make $qast;
     }
 
     method metachar:sym<[ ]>($/) {