Handle capnames of subcaptures properly.

perl6 · Oct 17, 2009 · 2c73bfa · 2c73bfa
1 parent 6c418a8
commit 2c73bfa
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -448,7 +448,11 @@ sub capnames($ast, $count) {
     }
     elsif $pasttype eq 'subcapture' {
         if $ast.name eq '0' || $ast.name > 0 { $count := $ast.name + 1; }
+        %capnames{$ast.name} := 1;
         my %x := capnames($ast[0], $count);
+        for %x {
+            %capnames{$_} := +%capnames{$_} + %x{$_};
+        }
         $count := %x{''};
     }
     elsif $pasttype eq 'quant' {