Ensure that <sym> captures.

Raku · Nov 16, 2011 · 2668e04 · 2668e04
1 parent 0bbd9c1
commit 2668e04
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -319,7 +319,8 @@ class QRegex::P6Regex::Actions is HLL::Actions {
                               nqp::substr(%*RX<name>,
                                           nqp::index(%*RX<name>, ':sym<') + 5),
                               1);
-            $qast := QAST::Regex.new(:rxtype<literal>, $rxname, :node($/));
+            $qast := QAST::Regex.new(:name('sym'), :rxtype<subcapture>, :node($/),
+                QAST::Regex.new(:rxtype<literal>, $rxname, :node($/)));
         }
         else {
             $qast := QAST::Regex.new(:rxtype<subrule>, :subtype<capture>,