Fix capture handling with regard to &.

Raku · Jul 15, 2015 · 37a0d5f · 37a0d5f
1 parent 5834191
commit 37a0d5f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -831,7 +831,7 @@ class QRegex::P6Regex::Actions is HLL::Actions {
     sub capnames($ast, int $count) {
         my %capnames;
         my $rxtype := $ast.rxtype;
-        if $rxtype eq 'concat' || $rxtype eq 'goal' {
+        if $rxtype eq 'concat' || $rxtype eq 'goal' || $rxtype eq 'conjseq' {
             for $ast.list {
                 my %x := capnames($_, $count);
                 for %x { %capnames{$_.key} := +%capnames{$_.key} + $_.value; }